Klasse als Parameter einer Funktion

**bernau**

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:

markieren

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.

markieren

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.

markieren

Delphi-Quellcode:

			function ErzeugeMeinObjekt(IrgendeineKlasse):Tobject;

begin

  if bedingung then

     result:=IrgendeineKlasse.create

   else

     result:=nil;

end;

Gerd

Klasse als Parameter einer Funktion

Klasse als Parameter einer Funktion

Forumregeln