KlassenTyp und nicht Instanz übergeben

[Jonas Shinaniganz]

Hallo liebe DP'ler,

ich überlege grade, wie ich meine Idee am besten umsetze. Vereinfacht:

Delphi-Quellcode:

type
  // Basisklasse
  TConfigFailCode = class
    class function CodeMessage : String; dynamic; abstract;
  end;

  // hiervon gibt es einige andere Fehlermeldungs Klassen
  TCFCMailbox = class(TConfigFailCode)
    class function CodeMessage : String; override;
  end;

                                      //  TCFC = TConfigFailCode; (Synonym)
procedure TForm1.ConfigFailOutput(Code : TCFC);
begin
  Showmessage(Code.CodeMessage);
end;

// Hier rufe ich auf:
begin
  if A < B then
    ConfigFailOutput(TCFCMailbox);
end;

Mein Problem ist ja, das in der Prozedur ConfigFailOutput eine Instanz von TCFC erwartet wird und nicht einfach die Klasse. Ich brauche allerdings an der Stelle keine Objekte, da nur eine classfunction aufgerufen wird, was kann ich machen?

[DeddyH]

Ungetestet:

Delphi-Quellcode:

type
  TConfigFailCodeClass = class of TConfigFailCode;

procedure TForm1.ConfigFailOutput(Code : TConfigFailCodeClass);
begin
  Showmessage(Code.CodeMessage);
end;

[Jonas Shinaniganz]

Ah super, genau das "class of" habe ich gesucht. Tolle Sache, damit kann man doch bestimmt auch prima eine Abstrakte Fabrik umsetzen.

Klappt alles prima, Danke.