请问关于DELPHI 指针加减法后MOVE 不接受的有关问题

2013-10-03

请教关于DELPHI 指针加减法后MOVE 不接受的问题本帖最后由 YiLuSuiYun 于 2013-10-01 03:16:59 编辑proced

请教关于DELPHI 指针加减法后MOVE 不接受的问题
本帖最后由 YiLuSuiYun 于 2013-10-01 03:16:59 编辑

procedure TDIB.DataToPointer(var P:Pointer);
var
  BF: TBitmapFileHeader;
begin
  if Empty then Exit;
  if P <> nil then Exit;
    if not FImage.FMemoryImage then
    GdiFlush;
  with BF do
  begin
    bfType := BitmapFileType;
    bfOffBits := SizeOf(TBitmapFileHeader) + BitmapInfoSize;
    bfSize := bfOffBits + FImage.FBitmapInfo^.bmiHeader.biSizeImage;
    bfReserved1 := 0;
    bfReserved2 := 0;
  end;
  GetMem(P,BF.bfSize);
  Move(BF,P,SizeOf(TBitmapFileHeader));
  Move(FImage.FBitmapInfo, Pointer(Integer(P)+Sizeof(TBitMapFileHeader)),FImage.FBitmapInfoSize);
  move(FImage.FPBits, Pointer(Integer(P)+Sizeof(TBitMapFileHeader)+FImage.FBitmapInfoSize), FImage.FBitmapInfo.bmiHeader.biSizeImage);
end;

此函数的大概意思是：比如申请 1000个字节我在0-100字节写入一段内容然后在101-500写入另外一段内容
最后500-999写入一段内容。

请大家看最后两行由于使用了指针移位加使得相加再转型到Pointer的编程了Const类型
编译提示 :Constant cannot be passed as var parmeter;
最后发现MOVE的原型为
procedure Move(const Source; var Dest; count : Integer);

请教如何解决这个问题谢谢！
[解决办法]
试试这个：先将P赋值，MOVE前加上一句：
P := Pointer(Integer(P)+Sizeof(TBitMapFileHeader));
Move(FImage.FBitmapInfo,P,FImage.FBitmapInfoSize);

热点排行

.NET

请问关于DELPHI 指针加减法后MOVE 不接受的有关问题