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:

markieren

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

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

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

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:

zusammenfalten · markieren

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

Zitat von Elvis:

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

Ätsch Statische Methoden meinst du wohl?

Zitat von Dax:

Zitat von Elvis:

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

Ätsch Statische Methoden meinst du wohl?

Jo

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?