Allgemeine Objektinstanzierung

[larssternberg.gmx.de]

Hallo,

ich habe folgendes Problem. Ich möchte ein Objekt instanzieren. Ich möchte aber nicht den normalen Wegen gehen: 'Klassentyp objektname = Klassentyp.create'. Stattdessen möchte ich einer Funktion den Klassennamen als string übergeben und dann in der Funktion mit dem string ein Objekt des ensprechenden Klassentyps erzeugen. In Java geht das. Gibt es hierfür auch eine Möglichkeit in Delphi? Danke für Eure Hilfe. Lars.

[Phoenix]

Das geht über einen kleinen Umweg.

Du erzeugst eine Containerklasse. Diese bietet folgende Funktionalität:

Eine Klasse kann mit Klassenvariable und Klassenname als String registriert werden.

Beispiel: Container.RegisterClass(TObject, 'TObject');

Der erste Parameter sollte eben eine Klasse sein (allgemeiner Klassentyp TClass), der zweite eben der String zum Aufrufen. Beides Speichert der Container in einem Array.

Desweiteren kann der Container eine instanzierte Klasse zurückliefern.
Beispiel: Container.GetClass('Klassenname') : TClass;

Du kannst dann hergehen und z.B. mit Container.GetClass('Klassenname').Create ein Objekt dieser Klasse erzeugen.

Ist aber wie gesagt ein Umweg und relativ aufwendig zu programmieren. Zumal Du ja zum Teil auch Parameter beim Create einer eigenen Klasse berücksichtigen müsstest.
Da geht dann viel über die RTTI (guck mal inder OH nach ClassType und ClassInfo).

[choose]

Hallo larssternberg.gmx.de,

von Strings rate ich generell ab. Nutze stattdessen die Typensicherheit von Pascal und die Möglichkeit, Klassentypen zu definieren. In diesem Fall würde ich mich auch mit virtuellen Konstruktoren beschäftigen.

Delphi-Quellcode:

type
  TAbstract = class
  public
    constructor Create(const AParam: TMyType);virtual;
  end;
  TAbstractClass = class of TAbstract;

  TConcrete1 = class(TAbstract)
  public 
    constructor Create(const AParam: TMyType);override;
  end;

  TConcrete2 = class(TAbstract)
  public
    procedure AMethod;
  end;
//..

Zwar ist TAbstractClass nicht ganz eine Metaklasse, wie in Smalltalk, aber immerhin eine Variable, die eine Referenz auf die VMT einer Klasse halten kann und darüber hinaus vom Compiler auf den Typ überprüft werden kann:

Delphi-Quellcode:

function CreateInstance(const AClass: TAbstractClass): TAbstract;
begin
  Result:= AClass.Create(Foo);
end;

Falls Du unbedingt einen String verwenden musst, benötigst Du eine Registratur, die innerhalb der VCL/CLX im Fall von TPersistent aber mit RegisterClass bereits gegeben ist.

Strenggenommen sind beide Wege nicht gerade elegant und können mit OOP wesentlich besser gelöst werden. Schau Dir mal die Entwurfsmuster "Fabrik" (Factory) und "Abstrakte Fabrik" (Abstract Factory) an. Dabei handelt es sich um sog. "Erzeugungsmuster", die das eigentliche Problem klar herausarbeiten und eine durchdachte Lösung anbieten.

EDIT: Für "die kleine Lösung" ist auch das Muster "Fabrikmethode" (Factory Method) denkbar, scheint aber nicht ganz Deiner Beschreibung zu entsprechen.