Du kannst auf properties in records verwenden.
Alle Felder nach privat und dann
so in etwa (habe jetzt nicht alle setter getter reingenommen....
Delphi-Quellcode:
type
TMyData =
record
private
fa,
fb,fc,fd,fe,ff:
string;
faa,fbb,fcc,fdd,fee,fff: Integer;
function geta:
string;
procedure seta(
const Value:
string);
public
property a :
string read geta
write seta;
end;
implementation
{ TMyData }
function TMyData.geta:
string;
begin
result := fa;
end;
procedure TMyData.seta(
const Value:
string);
begin
fa := value;
end;