Zitat von
GuenterS:
das habe ich gemacht, allerdings ohne einen Erfolg zu erzielen.
War aber auch kein Fehler. Jetzt kannst du zunächst mal jeweils einen Konstruktor für TChef und TMitarbeiter schreiben und die Properties dort mal vorbelegen.
Delphi-Quellcode:
constructor TChef.Create; {override}
begin
inherited;
Titel := 'Oberboss, Stressmacher';
end;
Dann so weiter debuggen:
Delphi-Quellcode:
procedure Synchronize(aClass: TBaseClass);
var
lBasisClass: TBasis;
lPropList: TPropList;
i: integer;
begin
lBasisClass := aClass.Create;
ShowMessage('lBasisClass =Class('+lBasisClass.Classname+')'); // Klassenname anzeigen
Mit der Anzeige von Classname kannst du überprüfen, ob auch das erzeugt Objekt auch wirklich
zu der gewünschten Klasse gehört.