class reference als Parameter übergeben

[Tobinator]

Hi,

wie kann ich als Parameter einer Procedure eine Class Reference übergeben?

Konkret:
ich habe eine Klasse (TMyClassA) von der ich einige Nachfahren (TMyClassB, TMyClassC) ableite. Diese sollen dann in einer Liste gespeichert werden (TMyClassList). Diese Liste kann TMyClassA Objekte (und damit auch deren Nachfahren) speichern.
Nun soll die Liste eine Funktion haben, mit der sie selbst Objekte erzeugt, sie mit Daten aus einer Datenbank füllt und dann speichert. Dafür muss TMyClassList ja irgendwann tmp:=TMyClassB.Create; oder tmp:=TMyClassC.Create; aufrufen.

Jetzt meine Frage: wie kann ich TMyClassB oder TMyClassC als Parameter übergeben, damit die Liste nun genau weis, was sie erzeugen soll?

Ich hab schon gesucht, bin aber nicht so recht füngig geworden.

PS: wenn ich eine Instanz übergebe und dann z.B. tmp:=AObj.Create aufrufe, dann haben alle Elemente der Liste die gleichen werte. Es ist also sozusagen alles die gleiche Instanz.

Danke schonmal,

Tobi.