Klassen-Konstruktion einmal anders...

[Ganymed]

Hi!

Ich bae ein paar Klassen, sagen wir mal

Code:

type
  TMyCustomClass = class(TObject);
  [...]
  TMyClassA = class(TMyCustomClass);
  [...]
  TMyClassB = class(TMyCustomClass);

Von TClassA und TClassB möchte ich nun einige Instanzen in einem Array verwalten:

Code:

aMyObjects: array of TMyCustomClass;

Dazu soll mit aber eine einzelne Prozedur dienen, der ich nur den Classen-Typ übergebe. Das müsste in etwa so ausssehen:

Code:

procedure AddObject(ObjectClass: TClass);
begin
  SetLength(aMyObjects, Length(aMyObjects) +1);
  aMyObjects[Length(aMyObjects) -1] := TMyCustomClass(ObjectClass).Create;
end;

Dass das nicht funktioniert ist ja klar, denn ich versuche eine TClass in eine TMyCumstomClass umzuwandeln und das kann ja nicht gehen.
Wie kann ich es aber erreichen, dass ich der Prozedur die Klasse übergebe, die ich erstellen möchte?

Hoffe, ich hab meine Problematik halbwegs nachvollziehbar dargestellt.

Ganymed

[Edit=Sakura]BBCode zugelassen[/Edit]