Klassen per GetClass() dynamisch erzeugen

[mindtrap]

Hallo,

ich verwende folgenden Code zum Erzeugen von Klassen:

Delphi-Quellcode:

class function CreateClassReference(const AClassName: string; const AClassAncestor: TClass; var AClassInstance): Boolean;
var 
  ClassObj: TObject absolute AClassInstance;
  ClassRef: TPersistentClass;
begin
  ClassObj := nil;

  // Klassenreferenz laden
  ClassRef := GetClass(AClassName);

  if Assigned(ClassRef) then
  begin
    if ClassRef.InheritsFrom(AClassAncestor) then
    begin
      ClassObj := ClassRef.NewInstance;
      (ClassObj as ClassRef).Create;
    end;
  end;
end;

Funktioniert auch einwandfrei, nur musste ich leider feststellen, dass der Kontstruktor der Klasse nie aufgerufen wird.

Weiß jemand woran das liegen könnte? Verwende ich die falschen Aufrufe?

Danke :)

Crosspost: http://www.delphi-forum.de/viewtopic.php?p=640991

[rollstuhlfahrer]

Zitat:

Zitat von mindtrap (Beitrag 1101537)

Delphi-Quellcode:

(ClassObj as ClassRef).Create;

Keine Ahnung, was schief läuft, aber das hier sieht schon mal falsch aus, hab ich so das Gefühl. Normalerweise ist der Weg ja

Delphi-Quellcode:

Objekt := TKlasse.Create

. Es könnte aber auch sein, dass der Konstruktor von TObject aufgerufen wird und nicht der Konstruktor deiner Klasse.

Bernhard

[himitsu]

http://www.delphipraxis.net/160429-r...-aufrufen.html

[Neutral General]

Hallo,

Haben alle Objekte die du so erzeugst eine gemeinsame Oberklasse?
Wenn ja, dann muss die Oberklasse einen virtuellen Konstruktor besitzen, den die abgeleiteten Klassen überschreiben.

Ungefähr so:

Delphi-Quellcode:

type
  TOberklasse = class
    constructor Create(Bla: String); virtual;
  end;

  TUnterklasse1 = class(TOberklasse)
    constructor Create(Bla: String); override;
  end;

  TUnterklasse2 = class(TUnterklasse)
    constructor Create(Bla: String); override;
  end;

  TOberKlasseClass = class of TOberklasse;

implementation

class function CreateClassReference(const AClassName: string; var AClassInstance): Boolean;
var 
  ClassObj: TObject absolute AClassInstance;
  ClassRef: TOberKlasseClass;
begin
  ClassObj := nil;

  // Klassenreferenz laden
  ClassRef := TOberKlasseClass(GetClass(AClassName));

  if Assigned(ClassRef) then
  begin
    if ClassRef.InheritsFrom(TOberKlasseClass) then
    begin
      ClassObj := ClassRef.Create('123');
    end;
  end;
end;

[mindtrap]

Hallo,

danke für die Antworten.
Schade irgendwie, dass das so wie ich das mache nicht funktioniert.

Wenn ich den Aufruf so gestalte, wie Neutral General vorschlägt, habe ich
keinen Plusgewinn. Ich müsste dann jedes mal die Klassenreferenz kennen.
Dann kann ich den Konstruktor auch selbst aufrufen.

Verwende ich meine Variante ist das Objekt durchaus korrekt instanziert und man kann
damit arbeiten, aber wie Eingangs erwähnt, wird nicht der entsprechende Konstruktor aufgerufen - sondern
wie korrekt gemutmaßt wurde, der Konstruktor von TObject. Also ist auch das unpraktikabel.

Ich habe jetzt einen anderen Weg eingeschlagen.
Per RTTI suche ich nun den Konstruktor und habe zudem noch einen offenen Parameterarray als
Argument in meine Funktion aufgenommen.
Letztendlich rufe ich dann mithilfe TRttiMethod.Invoke(<Instanz>, <Parameter>) alles
auf und bin glücklich.

Danke an dieser Stelle an alle.