im Code Fragment unten eine vereinfachte Version meiner Klasendefinitionen. Würde gerne die zu TMyData gehörenden Felder elegant / mit wenig Zeilen Code zuweisen, gibt es eine bessere als meine aktuelle Lösung in Delphi ?
Delphi-Quellcode:
Type
TMyData = class
i : Integer;
j : Integer;
pt : TPoint;
end;
TMyClass= Class(TMyData)
Index : Integer;
end;
TExtendClass = class ( TMyClass )
a : string ;
b : string ;
procedure LoadDatafromDatabase ;
end;
procedure TExtendClass.LoadDatafromDatabase ;
var aData : TMyData;
begin
/// DAten aus einer Datenbank laden ....
ladeDaten ( aData ) ;
/// kann ich diesen länglichen umkopier code vermeiden ?????????
self.i := aData.i;
self.j := aData.j;
....
end;