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:

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

[SirThornberry]

du musst mit "Class of" einen neuen Typen declarieren.
Zum Beispiel so:

Delphi-Quellcode:

type
  TObjectClass = class of TObject;

anschließend kannst du diesen Typ übergeben

Delphi-Quellcode:

function MeineFunktion(ATyp: TObjectClass): TObject;
begin
  result := TObjectClass.Create;
end;

[Hawkeye219]

Hallo,

das Beispiel von Jens wird nicht in allen Fällen funktionieren - und das liegt nicht nur daran, daß er den Übergabeparameter nicht benutzt.
Wenn die abgeleiteten Klassen den (statischen) Konstruktor von TObject überschreiben, wird der neue Konstruktor nicht aufgerufen. Um dies zu beheben, muß die Deklaration wie folgt abgeändert werden:

Delphi-Quellcode:

type
//  TMeinObjectClass = class of TObject;    // kein Aufruf des Konstruktors
  TMeinObjectClass = class of TMeinObject;  // Konstruktor wird aufgerufen

  TMeinObject = class (TObject)
  public
    constructor Create;
  end;

  TMeinAnderesObject = class (TMeinObject)
  public
    constructor Create;
  end;

constructor TMeinObject.Create;
begin
  inherited;
  ShowMessage (ClassName + '.Create');
end;

constructor TMeinAnderesObject.Create;
begin
  inherited;
  ShowMessage (ClassName + '.Create');
end;

function ErzeugeMeinObjekt (aClass: TMeinObjectClass): TObject;
begin
  Result := aClass.Create;
end;

Gruß Hawkeye

[bernau]

Genau das war's was ich gesucht hatte.


Danke

Gerd

[SirThornberry]

Ups, da hab ich beim Tippen nen Fehler gemacht. Sollte natürlich

Delphi-Quellcode:

function MeineFunktion(ATyp: TObjectClass): TObject; 
begin 
  result := ATyp.Create; 
end;

heißen. Aber es ist natürlich richtig das dies Praktisch keinen Sinn macht weil ein neu definierter Constructor so nicht aufgerufen wird.