一个简单的奇怪问题：不能给记录属性的某个字段附值？

Question

type
  TRec = record
    A: Integer;
  end;
  TRecClass = class
  private
    FA: TRec;
  public
    property pA: TRec read FA write FA;
  end;procedure TForm1.Button1Click(Sender: TObject);
var
  Abc: TRecClass;
begin
  Abc:=TRecClass.Create;
  Abc.pA.A:=9;
end;[Error]: Left side cannot be assigned to;
为什么不能给记录属性的某个字段附值？
我不想这样附值：
var
  Abc: TRecClass;
  vA: TRec;
begin
  vA.A:=9;
  Abc:=TRecClass.Create;
  Abc.pA:=vA;
end;

Answer 1

既然你定义它为属性，你可以写个TRecClass.SetpA方法，给FA赋值

Answer 2

property的write实质上是一个set函数，所以不能这样赋值。