"Class Of..." für Interfaces

[sunnyandy]

Hallo,

ich suche eine Möglichkeit eine Variable so zu deklarieren, dass ich dort Klassentypen von den Klassen zuweisen kann, die ein bestimmtes Interface implementieren.

Für normale Klassen habe ich folgendes gemacht:
Ich hatte eine Oberklasse mit dem Namen "TAccessComponent" für meine Verbindungsklassen (zur DB) und konnte sie so zuweisen:

Delphi-Quellcode:

type TConnectionClasses = class of TAccessComponent;
...
FZugriffsKomponente := TMeineAccessComponent;

Das ging natürlich, da TMeineAccessComponent von TAccessComponent erbt.
Genau das gleich möchte ich für Klassen machen, die ein gemeinsames Interface implementieren, ich möchte anstatt TAccessComponent also ein Interface angeben.
Aber mit "Class of" komme ich da nicht weit...
Weiß jemand eine Lösung?

Danke im Voraus!
Andy

[Dax]

Ja, die Lösung ist: geht nicht. Interfaces sind an Instanzen gebunden, Metaklassen hast du nur für TObject und Nachfahren davon.

[Bernhard Geyer]

Evtl. läßt sich ja dein eigentliches Problem mit einer Faktory lösen.

[Elvis]

Zitat:

Zitat von Dax

Ja, die Lösung ist: geht nicht. Interfaces sind an Instanzen gebunden, Metaklassen hast du nur für TObject und Nachfahren davon.

*Hust*
Klar geht das.
Man braucht eigentlich kein Äquivalent zu Metaklassen bei Iterfaces, da diese keine Instanzmethoden und Konstruktoren haben. Nur für den Namen wäre das ganz nett.
Da sie aber sowieso nur über die GUID identifiziert werden, kann einfach die hernehmen:

Delphi-Quellcode:

type
  ISample = interface
  ['{451B5891-0E6C-4A76-A667-A8D7499391E7}']
  end;

  TSample1 = class
  end;

  TSample2 = class(TInterfacedObject, ISample)
  end;

var
  guid                   : TGUID;
  classRef               : TClass;
  classSupportsInterface : Boolean;
begin
  guid     := ISample;
  classRef := TSample1;

  classSupportsInterface := Supports(classRef, guid);

  Writeln(classRef.ClassName, ' supports ',  GUIDToString(guid), ': ', classSupportsInterface);

  classRef := TSample2;

  classSupportsInterface := Supports(classRef, guid);

  Writeln(classRef.ClassName, ' supports ',  GUIDToString(guid), ': ', classSupportsInterface);
end.

Output

TSample1 supports {451B5891-0E6C-4A76-A667-A8D7499391E7}: FALSE
TSample2 supports {451B5891-0E6C-4A76-A667-A8D7499391E7}: TRUE

[Dax]

Zitat:

Zitat von Elvis

Man braucht eigentlich kein Äquivalent zu Metaklassen bei Iterfaces, da diese keine Instanzmethoden und Konstruktoren haben.

Ätsch :P Statische Methoden meinst du wohl?

[Elvis]

Zitat:

Zitat von Dax

Zitat:

Zitat von Elvis

Man braucht eigentlich kein Äquivalent zu Metaklassen bei Iterfaces, da diese keine Instanzmethoden und Konstruktoren haben.

Ätsch :P Statische Methoden meinst du wohl?

Jo :mrgreen:

[Dax]

Aber ein direktes Äquivalent zu Metaklassen für Interfaces statt Klassen - so hab ich die Frage verstanden - ist nicht vorgesehen, da sind wir uns doch einig?