Objekt vom Typ (AKlasse) erstellen

[Rob09]

Hi!

Ich möchte ganz einfach eine Prozedur schreiben, die ein Objekt erstellt, dessen Typ der Prozedur übergeben wird. Ich stelle mir das bisher folgendermaßen vor:

Delphi-Quellcode:

procedure ErstelleObjekt(AKlasse: TClass);
var
  NeuesObjekt: TControl;
begin
  NeuesObjekt := AKlasse.Create;
end;

Aufruf:

Delphi-Quellcode:

...
begin
  ErstelleObjekt(TLabel);
end;

Funktioniert aber nicht. Fehler ist "Incompatible types: 'TControl' and 'TObject' (in der Zeile "NeuesObjekt := AKlasse.Create;")

Ich weiß übrigens, dass die Objekte, die erstellt werden sollen, alles Typen sind, die von TControl erben.

Ähnliche Posts (z.B. "Wie Klassen (keine Instanz!) als Variable übergegben?") haben mir auch nicht weiter geholfen, steh irgendwie aufm Schlauch... Wäre sehr dankbar für eure Hilfe! (Ignoriert einfach mal, dass die erstellte Instanz momentan ohne Pointer im Nirvana landet)

Gruß,
Robert

EDIT: Muss natürlich auch "AKlasse.Create(Owner);" heißen...

[BUG]

Delphi-Quellcode:

type TControlClasses = class of TControl;
// ...
procedure ErstelleObjekt(AKlasse: TControlClasses);
var
  NeuesObjekt: TControl;
begin
  NeuesObjekt := AKlasse.Create(nil); // oder eben Owner
end;

So sollte es gehen.

[Rob09]

Ja, vielen Dank!

[Christian Seehase]

Moin BUG,

warum nicht gleich so:

Zitat:

Zitat von BUG (Beitrag 1058419)

Delphi-Quellcode:

// ...
procedure ErstelleObjekt(AKlasse: TControl);
var
  NeuesObjekt: TControl;
begin
  NeuesObjekt := AKlasse.Create(nil); // oder eben Owner
end;

So sollte es gehen.

[BUG]

Er möchte ja explizit eine Klasse übergeben, von der er noch kein Objekt hat.
Deine Version nimmt aber ein Objekt entgegen.

Sollte nicht funktionieren.

[Christian Seehase]

Moin BUG,

stimmt, da hast Du auch wieder Recht.

[sx2008]

Zitat:

Zitat von BUG (Beitrag 1058419)

Delphi-Quellcode:

type TControlClasses = class of TControl;

Dieser Datentyp ist übrigens schon in der VCL in Unit Controls deklariert (unter dem Namen TControlClass).

[Rob09]

Vielen Dank an euch für eure Hilfe! Funktioniert jetzt einwandfrei :thumb: