• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

BeliebigesTObject-Derivat replizieren

Hallo,

ich habe als Beispiel 3 Klassen von TObjectBase abgeleitet:

TObjectBase = class;

TObjectA = class(TObjectBase);
TObjectB = class(TObjectBase);
TObjectC = class(TObjectBase);

ich bekomme nun als Parameter ein Objekt übergeben, welches eine der 3
abgeleiteten Objekte sein kann.

Procedure Test(Obj : TObjectBase);
Var
TempObj : TObjectBase;
Begin
TempObj := SuperFunc ( Obj.ClassType);
End;

Ich möchte nun in der Procedure ein Object gleichen Typs (also TObjectA, B
oder C) erzeugen, allerdings ohne via case auf den Typ des Parameters zu
prüfen.

Gibt es da eine Möglichkeit quasi an die Klasse des Objects zu kommen um ein
neues Objekt zu erzeugen?

Ich hoffe ich habe mich halbwegs verständlich ausgedrückt.... :-/

Gruß
Sascha

Antworten