Hi,
wie soll ich's erklären?
Ich möchte eine Funktion deklarieren, in der eine Klasse übergeben wird und je nach Situation die übergebene Klasse instanziert wird und als Ergebnis die Instanz zurückgeliefert wird.
Beispiel: Ich Übergebe der Funktion die Klasse TMeinObject (abgeleitet von TObject). Je nach Bedingung erhalte ich als Ergebnis eine Instanz von der übergebenen Klasse oder NIL. Aufrufen möchte ich die Funktion folgendermassen:
Delphi-Quellcode:
var
EineVariable:TObject;
begin
EineVariable:=ErzeugeMeinObjekt(TMeinObject);
end;
Der gleichen Funktion möchte ich aber auch eine andere von TObject abgeleitete Klasse übergeben.
Delphi-Quellcode:
var
EineVariable:TObject;
begin
EineVariable:=ErzeugeMeinObjekt(TMeinAnderesObject);
end;
Wie soll nun die Funktion aussehen? So geht's leider nicht. Der Compiler lässt sich einfach nicht überzeugen.
Delphi-Quellcode:
function ErzeugeMeinObjekt(IrgendeineKlasse):Tobject;
begin
if bedingung then
result:=IrgendeineKlasse.create
else
result:=nil;
end;
Gerd