grundlegende frage zu interfaces

[snook]

hey,

ich habe in meinem projekt eine basisklasse:

Delphi-Quellcode:

type
  TFormGeraet = class(TForm)
  .
  .
  .
end;

Benutzer schreiben damit treiber für geräte, welche dann bestimmte interfaces implementieren:

  TTemperaturController = class(TFormGeraet, ITemp) Um das ganze zu vereinheitlichen habe ich einen Controller entwickelt, der alle geräte unter angabe ihrer klasse
durch einen klassenkonstruktor erzeugt und verwaltet. ich würde jetzt noch gerne auf die entsprechenden interfaces der geraete zugreifen. Ist es möglich OHNE zur designzeit über die genaue klasse bescheid zu wissen auf die interfaces der objekte zuzugreifen?

[snook]

Falls es jemand braucht:
es geht mit der GetInterface. Die Objekte werden als Pointer übergeben und auf die basisklasse gecastet:

Delphi-Quellcode:

procedure TCustomInterfaceList.Add(Device: Pointer;
  const InterfaceType: TInterfaceType; const Name: string; const Owner: string);
begin
  case InterfaceType of
    itTemp:
    begin
      case GetControllerType(Owner) of
        ctGeraet: TFormGeraet(Device).GetInterface(ITemp,Temp);
        ctGeraetAllgemein: TFormGeraetAllgemein(Device).GetInterface(ITemp,Temp);
      end;
      inherited Add(Temp);
    end;
end;