RTTI - Properties setzen

[Gruber_Hans_12345]

hmmm, kann mir nicht vorstellen, das es bei services anders sein sollte, da es reine delphi interne sache ist

Von welchem Objekt ist die Klasse abgeleitet?
Eventuell die compilerdirective {$M+} vor der ersten deklaration der klasse geben, damit auch die RTTI von der klasse reincompiliert wird (oder eben von TPersitant ableiten)

[GuenterS]

Das mit dem Service war mein Fehler, hat damit eigentlich nichts zu tun, tritt genauso in der Applikation auf.

Konnte jetzt aber folgendes Phänomen beobachten.

Ich habe eine Klassenhirarchie die folgendermassen aussieht:

Delphi-Quellcode:

TBaseClass = class of TBasis;

TBasis = class(TObject)

TMitarbeiter = class(TBasis)
published
   property Name: string read FName write FName;
end;

TChef = class(TBasis)
published
   property Titel: string read FTitel write FTitel;
end;

all diese Klassen sind unter der Compilerdirektive {$M+} definiert (im SourceCode natürlich vollständiger).

Jetzt habe ich eine Prozedur in welcher eine Klassenname übergeben wird, aus welcher die entsprechenden Properties ausgelesen werden sollen. Diese schaut (gekürzt) folgendermassen aus:

Delphi-Quellcode:

procedure Synchronize(aClass: TBaseClass);
var
  lBasisClass: TBasis;
  lPropList: TPropList;
  i: integer;
begin
  lBasisClass := aClass.Create;

  GetPropList(lBasisClass.ClassInfo, tkProperties, @lPropList);

  i := 0;
  while ((lPropList[i] <> nil) and (i < high(lPropList))) do
  begin
    //Properties entsprechend setzen
     case PropType(lBasisClass , lPropList[i].Name) of
       tkInteger:
         SetOrdProp(lBasisClass , lPropList[i].Name, lQry.FieldByName(lPropList[i].Name).AsInteger);
       tkFloat:
         SetFloatProp(lBasisClass , lPropList[i].Name, lQry.FieldByName(lPropList[i].Name).AsFloat);
       tkString, tkLString:
         SetStrProp(lBasisClass , lPropList[i].Name, lQry.FieldByName(lPropList[i].Name).AsString);
     end;
     inc(i);
  end;
  lBasisClass.Free;
end;

Wenn ich diese Prozedur mit dem Parameter TMitarbeiter aufruf klappt alles. Beende ich das Programm und rufe die Prozedur mit Paramter TChef auf klappt auch alles. Rufe ich aber zuerst TMitarbeiter und dann TChef auf, ohne dazwischen das Programm zu beenden, findet er die Properties von TMitarbeiter. Dies funktioniert auch andersrum so.

Was könnte ich tun?

[shmia]

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)

[GuenterS]

Das habe ich gemacht, allerdings ohne einen Erfolg zu erzielen. Die abgeleiteten Klassen haben allerdings keinen eigenen Konstruktor.

[Idee]
Diese Liste was ich da bekomme, ich vermute, dass die einfach nicht geleert wird durch das Holen der neuen Werte? Teste dies eben mal...
[/Idee]

[shmia]

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.

[GuenterS]

der Classname als auch ClassType selber stimmt auch, ganz am anfang der Liste kommen die richtigen Properties, danach die falschen.

[shmia]

Zitat von GuenterS:

ganz am anfang der Liste kommen die richtigen Properties, danach die falschen.

Ahhhhrrrrrrg!!
GetPropList() liefert die Anzahl der Properties zurück. Deine While-Schleife ist falsch.
Hier ist eine For-Schleife angebracht:

Delphi-Quellcode:

  prop_count := GetPropList(obj.ClassInfo, type_kinds, nil);
....
  for i := 0 to prop_count - 1 do

[GuenterS]

danke