Delphi-Quellcode:
type
TMyData = record
a,b,c,d,e,f: string;
aa,bb,c,dd,ee,ff: Integer;
end;
TMyDataClass = Class
private
fdata : TMyData;
protected
function GetA:String;
procedure SetA(value:string);
:
function GetAA:Integer;
procedure SetAA(Value:integer);
:
published
property a : string read GetA write SetA;
:
property aa: integer read GetAA write SetAA;
end;
Um die Erzeugung der Instanzen an den betreffenden Stellen wirst du aber nicht drum rum kommen. Wenn du mit globalen Variablen deines Records arbeitest, reichts aber auch, wenn du dir entsprechend globalen Instanzen erzeugst (z.B. im Initialization-Teil einer
Unit). Nicht vergessen die Instanzen auch wieder freigeben !.