delphi - 使用 "for in"语句并编译错误E2064

Question

我想在 D2010 下的测试用例中使用 for in 句子。

如果我想写入Param.Value变量，那么编译器会报告错误2064，但允许从同一条记录写入Param.Edit.text，为什么？

测试用例:

type
//
  TparamSet = (param_A, param_B, param_C, param_D, param_E, param_F);

  TParam = record
    Edit        :TEdit;
    Value       :integer;
  end;

var
  dtcp                  :array [TparamSet] of TParam;

procedure ResetParams;
var
  Param                 :TParam;
  A                     :Integer;
begin
  for Param in dtcp do
  begin
    Param.Edit.text:= 'Test';             //No problem
    A := Param.Value;                     //No problem
    Param.Value := 0;                     //Error: E2064 Left side cannot be assigned to;
  end;
end;

Answer 1

记录是值类型。 for in 循环返回数组中每个记录的副本，因此编译器错误实际上是告诉您修改它是徒劳的。

您需要使用老式的 for 循环:

for i := low(dtcp) to high(dtcp) do
  dtcp[i].Value := 0;