Record als Property

[nebukadnezzar]

also ich hab sagen wir mal folgenden record

Delphi-Quellcode:

TRec = Record
     Feld1,Feld2:integer;
end

und

Delphi-Quellcode:

Tmyclass = Class
   private
    procedure setdata(D:TRec);
    Function GetData:TRec;
   .
   .
   public
    property Data:Trec read GetData Write SetData;
    .
   end;

so. wie kann ich es nun schaffen das wenn ich

Code:

MyObj.Data:=Rec;

das mittels SetData geschreiben wird
aber bei

Code:

MyOnj.Data.Feld1:=2;

das auch gespeichert wird (ohne setdata!)

[sakura]

Das GetData muss entfallen und die Property muss direkt zurückgegeben werden

Delphi-Quellcode:

type
  TRec = Record
     Feld1,Feld2:integer;
  end;

  Tmyclass = Class
   private
    FData: TRec;
    procedure setdata(D:TRec);
   .
   .
   public
    property Data:Trec read FData Write SetData;
    .
   end;

......

[Motzi]

Das geht IMHO nicht.. zumindest nicht mit einer SetData-Methode, vielleicht wenn du auch direkten Schreibzugriff zulässt "write FData")

Aber du könntest auch ein TPersistent-Objekt ableiten, dass dann deine "Untereigenschaften" kapselt.