Record schreibgeschützt weil Feld von Klasse

[Blup]

Da gibt es immer noch die bösen Pointer...

Delphi-Quellcode:

PMyRecord = ^TMyRecord
TMyRecord = record
  a : integer;
  b : integer;
end;

TMyClass = class(TObject)
private
  FMyRecord : TMyRecord;
  function GetMyRecord: PMyRecord;
public
  property MyRecord : PMyRecord read GetMyRecord;
end;

function TMyClass.GetMyRecord: PMyRecord;
begin
  Result := @FMyRecord;
end;

MyClass.MyRecord.a := 1;
MyClass.MyRecord.b := 2;