Quel est l'équivalent dans Delphi 3 de Supports for Interfaces?

Question

Je supporte une application écrite en Delphi 3 et je voudrais apporter quelques améliorations au code source en attendant l'opportunité de le mettre à niveau vers une version plus récente de Delphi. Une des choses que je voudrais utiliser est Interfaces. Je sais que Delphi 3 a déjà le concept d'interfaces, mais je ne parviens pas à trouver comment faire l'équivalent de

if Supports(ObjectInstance, IMyInterface) then 

Answer 1

Écrivez votre propre implémentation de la fonction « Supports ». En Delphi 2009, vous pouvez utiliser

function MySupports(const Instance: TObject; const IID: TGUID): Boolean; 
var 
    Temp: IInterface; 
    LUnknown: IUnknown; 
begin 
    Result:= (Instance <> nil) and 
      ((Instance.GetInterface(IUnknown, LUnknown) 
      and (LUnknown.QueryInterface(IID, Temp) = 0)) or 
      Instance.GetInterface(IID, Temp)); 
end; 

Test:

procedure TForm4.Button3Click(Sender: TObject); 
var 
    Obj: TInterfacedObject; 

begin 
    Obj:= TInterfacedObject.Create; 
    if MySupports(Obj, IUnknown) then 
    ShowMessage('!!'); 
end; 

espère que cela fonctionnera dans Delphi 3