Property Member

[Dax]

Machs doch so oder ähnlich:

Delphi-Quellcode:

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    A: Integer;
    B: Integer;
  end;

  TFoobar = class(TObject)
  privat
    FRecord: TMyRecord;

    function GetRecord: PMyRecord;
  public
    property Record: PMyRecord read GetRecord;

    procedure SetRecord(rec: TMyRecord);
  end;

function TFoobar.GetRecord;
begin
  result := @FRecord;
end;

procedure TFoobar.SetRecord;
begin
  FRecord := rec;
end;

.Record würde instanzlokal konstant sein, also kann man das ohne Probleme tun. Ganz sauber ist es aber leider auch nicht