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