auf die Daten der Basisklasse zugreifen

[bernhard_LA]

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;