Hallo,
ich habe eine Klasse TMyclass und von der abgeleitet mehrere Klassen TMyclass1, TMyclass2, TMyclass3 etc.
Jetzt würde ich eine Funktion createinstance brauchen, die ich mit einer Klassenbezeichnung als Parameter aufrufe, und die mir dann ein Objekt dieser Klasse erzeugt und als Ergebnis zurückliefert. Der springende Punkt ist, dass ich zum Zeitpunkt, wo ich die Funktion createinstance schreibe, noch gar nicht weiss, für welche abgeleiteten Klassen die Funktion später aufgerufen werden wird.
Also irgendwie so:
Delphi-Quellcode:
function CreateInstance (Klassenbezeichnung): TMyClass;
begin
Result := Klassenbezeichnung.Create (Parameter für constructor create von Tmyclass, alle abgeleiteten Klassen haben die gleichen Parameter);
end;
var
a: TMyclass1;
b: TMyclass2;
begin
a := CreateInstance(TMyclass1);
...
b := CreateInstance(Tmyclass2);
end;
Geht das irgendwie?