grundlegende frage zu interfaces

[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;