下面的代码用Win32编译但产生Delphi编译器错误E2064左侧在用Win64编译时无法分配 .
type
PRGB24 = ^TRGB24;
TRGB24 = record
B, G, R: Byte;
end;
PRGBArray = ^TRGBArray;
TRGBArray = array [Word] of TRGB24;
procedure TFormCurves.ApplyCurve(Src: TIEBitmap);
var
iRGBArray: PRGBArray;
SFill, X, Y: Integer;
begin
if not AImageLoaded then
Exit;
iRGBArray := PRGBArray(Src.Scanline[0]);
SFill := Integer(Src.Scanline[1]) - Integer(iRGBArray);
for Y := 0 to Src.Height - 1 do
begin
for X := 0 to Src.Width - 1 do
begin
iRGBArray[X].R := ALUT[0, ALUT[1, iRGBArray[X].R]];
iRGBArray[X].G := ALUT[0, ALUT[2, iRGBArray[X].G]];
iRGBArray[X].B := ALUT[0, ALUT[3, iRGBArray[X].B]];
end;
Inc(Integer(iRGBArray), SFill);//compiler error E2064 left side cannot be assigned to
end;
end;
procedure TFormCurves.GetHist;
var
iRGBArray: PRGBArray;
X, Y, SFill: Integer;
iIEBitmap: TIEBitmap;
iRGB: TRGB24;
R, G, B, l: Byte;
begin
if not AImageLoaded then
Exit;
for Y := 0 to 3 do
begin
AMaxHistory[Y] := 0;
for X := 0 to 255 do
AHistory[Y, X] := 0;
end;
iIEBitmap := imgView.IEBitmap;
iRGBArray := PRGBArray(iIEBitmap.Scanline[0]);
SFill := Integer(iIEBitmap.Scanline[1]) - Integer(iRGBArray);
for Y := 0 to iIEBitmap.Height - 1 do
begin
for X := 0 to iIEBitmap.Width - 1 do
begin
iRGB := iRGBArray[X];
R := iRGB.R;
G := iRGB.G;
B := iRGB.B;
l := (R + G + B) div 3;
AHistory[0, l] := AHistory[0, l] + 1;
AHistory[1, R] := AHistory[1, R] + 1;
AHistory[2, G] := AHistory[2, G] + 1;
AHistory[3, B] := AHistory[3, B] + 1;
end;
Inc(Integer(iRGBArray), SFill); //compiler error E2064 left side cannot be assigned to
end;
for Y := 0 to 3 do
for X := 0 to 255 do
if AHistory[Y, X] > AMaxHistory[Y] then
AMaxHistory[Y] := AHistory[Y, X];
end;
如何使用Win64消除编译器错误？
1 回答
在Win64上，指针是64位宽，
Integer是32位宽 . 这样的强制转换要求赋值表达式的两边大小相同 . 因此错误 .而不是强制转换为
Integer强制转换为PByte.所有其他
Integer演员都错了 . 你必须掌握这些类型的不同大小 . 您可以强制转换为NativeInt来解决它们 .