Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
10. Apr 2007
Ahhhhrrrrrrg!! :freak:
GetPropList() liefert die Anzahl der Properties zurück. Deine While-Schleife ist falsch.
Hier ist eine For-Schleife angebracht:
prop_count := GetPropList(obj.ClassInfo, type_kinds, nil);
....
for i := 0 to prop_count - 1 do
Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
10. Apr 2007
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.
constructor TChef.Create; {override}
begin
inherited;
Titel := 'Oberboss, Stressmacher';
end;
Dann so weiter debuggen:
procedure Synchronize(aClass: TBaseClass);
var
lBasisClass: TBasis;
Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
10. Apr 2007
Mach mal den Konstruktor von TBasis virtuell.
Andernfalls wird bei lBasisClass := aClass.Create nicht der richtige Konstruktor aufgerufen.
Vergleiche das mal mit TComponent.Create. (Ab TComponent ist der Konstruktor virtuell)
Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
27. Feb 2007
Was hast du denn vor ?
Etwa published Properties in ein Dataset schreiben und lesen?
(das hab ich hier schon fertig in der Schublade :mrgreen: )
Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
27. Feb 2007
Über den "PropTypeName":
var
PropInfos: PPropList;
PropTypeName : string;
pi : PPropInfo;
begin
...
GetPropList(obj.ClassInfo, type_kinds, PropInfos);
...
Forum: Object-Pascal / Delphi-Language
Delphi
by shmia,
27. Feb 2007
TDateTime ist intern ein Double. Also SetFloatValue