Record als Property

[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;

......