AddObject mit einem Interface?

[xaromz]

Hallo,

das Ganze ist eigentlich ziemlich einfach (aber mit einigen Schweinereien verbunden):

Delphi-Quellcode:

procedure Eintragen(Objekt: IMyInterface); 
begin 
  cmbTest.AddObject('Test', Pointer(Objekt)); 
end;

Delphi-Quellcode:

var 
  Intf: IInterface;  
begin 
  Intf := IInterface(Pointer(cmbDatenbank.Items.Objects[cmbDatenbank.ItemIndex]);
  if Supports(Intf, IMyInterface, dbcs) then
    dbcs.DoSomething; 
end;

Man sollte aber beachten, dass dabei die Referenzzählung den Bach runter geht.

Gruß
xaromz