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