Discussion :

[Bruno75]

j'essaie d'utiliser la directive implements pour un implémenter une interface à partir d'un attribut de type interface (la même).

avant de donner précisément comment je m'en sert, y a t il des trucs et astuces à savoir ? Quelles difficultés avez-vous rencontrées à ce sujet ?parce que j'ai vraiment l'impression de faire pile poil l'exemple de l'aide et il me sort "identificateur non déclaré" pour chaque élément de l'interface.

comme si il ne voyait même pas ma directive implements.

ps : je suis sur Delphi 7 architecte si ça change quoi que ce soit

[neilbgr]

Un petit bout de code serait le bienvenu.

[Bruno75]

je me rappelle plus ce que j'ai fait mais bon j'ai résolu le problème. je crois que ça avait rapport avec la dérivation d'interface.

j'avais le code suivant me semble t il

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
itest = interface
        procedure BonCaMarcheOuBien;
end;
 
itest2 = interface(itest)
        procedure BenNon;
end;
 
ttest = class(TInterfacedObject, itest, itest2)
protected
        FTest: itest2;
public
        property Test: itest2 read FTest implements itest2;
end;

et je pensais que implements itest2 suffisait pour itest et itest2 en fait il faut mettre les deux.

Code :

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

1
2
3
4
5
6
7
 
ttest = class(TInterfacedObject, itest, itest2)
protected
        FTest: itest2;
public
        property Test: itest2 read FTest implements itest, itest2;
end;