Discussion :

[Bruno75]

je pars de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
IBaseInterface = interface
...
end;
 
ISpecificInterface = interface(IBaseInterface)
...
end;
 
TMyObject = class(TInterfacedObject, ISpecificInterface)
...
end;

Naievement, je m'étais dit, TMyObject déclare qu'elle implémente IBaseInterface et ISpecificInterface

or quand je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
function TestFn: IBaseInterface
    result := TMyObject.Create as IBaseInterface;
end;

Il me dit que cette interface n'est pas implémentée.

Il faut donc que je fasse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
TMyObject = class(TInterfacedObject, IBaseInterface, ISpecificInterface)
...
end;

Est-ce absolument nécessaire ?

[tourlourou]

oui, je me souviens de l'avoir lu à plusieurs endroits !

[Bruno75]

merci