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.

[Uwe Raabe]

Deklariere einen Klassentyp:

TMyClassAClass = class of TMyClassA;

und verwende diese als Typ des Parameters.

[USchuster]

Hatte gerade das getippt und das geht als Ergänzung zu Uwe durch...

Delphi-Quellcode:

program Project22;

{$APPTYPE CONSOLE}

type
  TClassA = class(TObject);

  TClassAClass = class of TClassA;

  TClassB = class(TClassA);

  TClassC = class(TClassA);

procedure CreateClassA(AClassType: TClassAClass);
var
  Instance: TClassA;
begin
  Instance := AClassType.Create;
  try
    WriteLn('ClassName: ', Instance.ClassName);
  finally
    Instance.Free;
  end;
end;

begin
  CreateClassA(TClassB);
  CreateClassA(TClassC);
  ReadLn;
end.

Was den folgenden Output erzeugt:

Code:

ClassName: TClassB
ClassName: TClassC

[Tobinator]

Ok, super, funktioniert

Danke und viele Grüße.


EDIT:
Sry, doch noch nicht gelöst:
Es wird immernoch der Constructor von TMyClassA aufgerufen.
Wie kann ich das ändern?

[FredlFesl]

virtual Constructor

[Tobinator]

genau das hab ich gesucht, danke