Hallo Delphi-User,
Ich will Klassen über FindClass nach folgendem Schema erzeugen. Ich wundere mich aber, warum kein Constructor der Klasse TTest aufgerufen wird. Anscheinend wird nur der Constructor von TObject aufgerufen, aber nicht der von TTest.
Erzeuge ich jedoch TTest direkt über einen Aufruf TTest.Create, scheint der Constructor aufgerufen zu werden.
Wo liegt hier noch mein Fehler?
Vielen Dank
Rainer
Delphi-Quellcode:
TTest = class(TPersistent)
private
FX: Integer;
public
constructor Create; virtual;
property X: Integer read FX write FX;
end;
constructor TTest.Create;
begin
x:=5;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
tc: TPersistentClass;
begin
tc:=FindClass('TTest');
p:=TPersistent(tc.Create);
end;
initialization
RegisterClass(TTest);
finalization
UnRegisterClass(TTest);