在Delphi中的记录类型属性中，左侧无法被赋值。

由于"Rec"是一个属性（property），编译器对其进行了一些特殊处理，因为它必须先计算属性声明的“读取”操作。考虑下面的示例代码，与你的示例代码在语义上是等效的：

...
property Rec: TRec read GetRec write FRec;
...

通过这种方式观察，你会发现在点号'.'之前对"Rec"的第一个引用必须调用GetRec方法，该方法将创建Rec的临时本地副本。这些临时变量按设计是"只读"的。这就是你遇到的问题。

另一件事是，在包含类上将记录的各个字段作为属性拆分出来：

...
property RecField: Integer read FRec.A write FRec.A;
...

这将允许你通过属性直接为类实例中嵌入记录的字段进行赋值。

是的，这是一个问题。但可以使用记录属性解决此问题：

type
  TRec = record
  private
    FA : integer;
    FB : string;
    procedure SetA(const Value: Integer);
    procedure SetB(const Value: string);
  public
    property A: Integer read FA write SetA;
    property B: string read FB write SetB;
  end;

procedure TRec.SetA(const Value: Integer);
begin
  FA := Value;
end;

procedure TRec.SetB(const Value: string);
begin
  FB := Value;
end;

TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
private
  FRec : TRec;
public
  property Rec : TRec read FRec write FRec;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rec.A := 21;
  Rec.B := 'Hi';
end;

这段代码可以编译并且没有问题地运行。

我经常使用的解决方案是将属性声明为指向记录的指针。

type
  PRec = ^TRec;
  TRec = record
    A : integer;
    B : string;
  end;

  TForm1 = class(TForm)
  private
    FRec : TRec;

    function GetRec: PRec;
    procedure SetRec(Value: PRec);
  public
    property Rec : PRec read GetRec write SetRec; 
  end;

implementation

function TForm1.GetRec: PRec;
begin
  Result := @FRec;
end;  

procedure TForm1.SetRec(Value: PRec);
begin
  FRec := Value^;
end;

通过这样，直接将Form1.Rec.A := MyInteger赋值将会生效，同时Form1.Rec := MyRec也将生效，因为它将MyRec中的所有值复制到FRec字段中。

这里唯一需要注意的是，当你想要实际获取一个可操作的记录副本时，你需要进行一些类似于MyRec := Form1.Rec^的操作。

type
  TRec = record
    A: Integer;
    B: string;
  end;

  TForm2 = class(TForm)
  private
    FRec : TRec;
    FRec2: TRec;
    procedure SetRec2(const Value: TRec);
    function GetRec2: TRec;
  public
    procedure DoSomething(ARec: TRec);
    property Rec: TRec read FRec write FRec;
    property Rec2: TRec  read GetRec2 write SetRec2;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.DoSomething(ARec: TRec);
var
  LocalRec: TRec;
begin
  // copy in a local variable
  LocalRec := Rec2;
  LocalRec.A := Arec.A; // works

  // try to modify the Result of a function (a const) => NOT ALLOWED
  Rec2.A := Arec.A; // compiler refused!

  with Rec do
    A := ARec.A; // works with original property and with!
end;

function TForm2.GetRec2: TRec;
begin
  Result:=FRec2;
end;

procedure TForm2.SetRec2(const Value: TRec);
begin
  FRec2 := Value;
end;

procedure TForm1.DoSomething(ARec: TRec);
begin
  with Rec do
    A := ARec.A;
end;

Testing.TestRecord.I := 10;  // error

与调用以下函数相同：

Testing.getTestRecord().I := 10;   //error (i think)

r := Testing.TestRecord;    // read
r.I := 10;
Testing.TestRecord := r;    //write

这有点混乱，但这是这种架构固有的特点。

就像其他人所说的那样 - read属性将返回记录的副本，因此字段的赋值不会作用于TForm1拥有的副本。

另一个选项是类似于：

  TRec = record
    A : integer;
    B : string;
  end;
  PRec = ^TRec;

  TForm1 = class(TForm)
  private
    FRec : PRec;
  public
    constructor Create;
    destructor Destroy; override;

    procedure DoSomething(ARec: TRec);
    property Rec : PRec read FRec; 
  end;

constructor TForm1.Create;
begin
  inherited;
  FRec := AllocMem(sizeof(TRec));
end;

destructor TForm1.Destroy;
begin
  FreeMem(FRec);

  inherited;
end;

Delphi会为您解除PRec指针的引用，因此像下面这样的东西仍然有效：

Form1.Rec.A := 1234; 

除非您想交换FRec指向的PRec缓冲区，否则不需要编写属性的部分。我真的不建议通过属性进行这种交换。