Delphi 编译器报错 E2064 左侧不能分配给

Question

我继承了一个 Delphi 应用程序，但我对 object pascal 一无所知。

这是一个 BPL，我需要编译成新版本的 C++ Builder XE。
当我运行 make 时出现错误：

E2064 左侧无法分配。

我已经学习了足够多的 obj pascal，知道我有一个试图被赋值的常量。

但是，显然，您可以克服这种行为；本质上是通过进入 Delphi 编译器下的构建选项并打开“可分配类型常量”来将常量转换为变量。

我这样做了，但我仍然遇到同样的错误。

我尝试用 {$J+} 和 {$J-} 包围我的代码，但它仍然无法编译。

procedure TChunkIDAT.CopyInterlacedRGB8(const Pass: Byte;
  Src, Dest, Trans{$IFDEF Store16bits}, Extra{$ENDIF}: pChar );
var
  Col: Integer;
 begin
 {Get first column and enter in loop}
 Col := ColumnStart[Pass];
 Dest := pChar(Longint(Dest) + Col * 3);
 repeat
 {Copy this row}

  Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 2)^]; inc(Dest);

获取最后一行的错误。如果我将 const 更改为 var，则会收到声明与前一个声明不同的错误，但我不知道前一个声明在哪里......

Answer 1

原因是从 Delphi 2009 开始，Char、PChar 和 String 是 Unicode，每个字符存储多个字节。
您不应该将这些指针转换为字节，如果您将赋值的左侧转换为字节，编译器会阻止您分配它们。

这样编译：

procedure CopyInterlacedRGB8(const Pass: Byte; Dest: pAnsiChar); overload;
begin
  Byte(Dest^) := Pass;
end;

这不是：

procedure CopyInterlacedRGB8(const Pass: Byte; Dest: pChar); overload;
begin
  Byte(Dest^) := Pass;
end;

你应该使用pByte而不是pChar，这使得代码更简单：

procedure CopyInterlacedRGB8(const Pass: Byte; Dest: PByte); overload;
begin
  Dest^ := Pass;
end;

--杰罗恩

Answer 2

看起来您正在使用 Gustavo Daud 的 TPngImage 库。您不需要在外部 BPL 中使用该代码，因为它自 D2009 以来已包含在 RTL 中。从 BPL 中删除该单元，您应该能够通过 PngImage 单元获得更新版本。

Answer 3

您正在将一个两字节的东西 (Char) 类型转换为一个字节的东西 (Byte)。 读取该值很容易定义，但使该值可写很棘手，可能出于同样的原因，正式和实际“var”参数的类型需要相同。

也许您想将其强制转换为两个字节的东西，例如Word。或者，也许您希望 GammaTable 成为 Char 的数组，因此您根本不必进行类型转换。或者，如果此代码最初是为早于 2009 年的 Delphi 版本编写的，您希望那些 PChar 声明为 PAnsiChar — 字符类型变得更宽。另一种选择是将Dest 类型转换为PByte，然后然后 取消引用结果。不过，这可能是个坏主意，因为您只会覆盖缓冲区的所有其他字节。

根据函数的名称，听起来PChar 从来都不是要使用的正确数据类型。该类型用于 character 数据，但我认为此代码正在处理 bytes。正确的做法可能是将PChar 更改为PByte，然后您根本不需要类型转换Dest。

$J 指令无关紧要；它控制编译器是否允许您为类型化常量赋值。这段代码中没有这些。