Discussion :

[JimKirk]

Bonjour à tous,

je viens du C++ (depuis 1999!) et je commence à développer en Delphi depuis... 1 mois. Je bloque sur un problème conceptuel qui, je suis sûr, est un problème de débutant et une peccadille pour les développeurs ici présents. Voici :

- J'ai une classe A qui dérive d'une interface IObservable que j'ai déclaré comme suit : A= class(TInterfacedObject, IObservable) (implémentation du design pattern Observateur)

- Par ailleurs, je veux que cette classe dérive aussi à présent de la classe abstraite TThread.

Et là je rencontre un problème car je ne peux évidemment pas écrire : A = class(TInterfacedObject, IObservable, TThread) car il n'y a pas d'héritage multiple en Delphi.

Mais je ne peux pas non plus remplacer TThread par une IThread puisque TThread ne dérive pas d'une interface.

Comment faire ?

Merci par avance pour vos suggestions avisées.

[Ph. B.]

Bonjour,

- J'ai une classe A qui dérive d'une interface IObservable que j'ai déclaré comme suit : A= class(TInterfacedObject, IObservable) (implémentation du design pattern Observateur)

- Par ailleurs, je veux que cette classe dérive aussi à présent de la classe abstraite TThread.

Et là je rencontre un problème car je ne peux évidemment pas écrire : A = class(TInterfacedObject, IObservable, TThread) car il n'y a pas d'héritage multiple en Delphi.

Mais je ne peux pas non plus remplacer TThread par une IThread puisque TThread ne dérive pas d'une interface.

Comment faire ?

Je ferais comme ceci :
Dériver TInterfacedObject en y incorporant un TThread (classe composée) : TThreadTInterfacedObject et cette dernière associée à l'interface.
On aurait A:= class(TThreadTInterfacedObject, IObservable)

[JimKirk]

Je vois. Merci beaucoup !

[guillemouze]

Ou tu peux aussi faire le contraire, hériter de TThread et implémenter les quelques fonctions de IInterface (QueryInterface, AddRef, Release), dont tu trouvera le code dans TInterfacedObject.
Attention, tu as 2 comportements qui peuvent te rendre dans un état incohérent : le TThread.FreeOnTerminate, et la destruction automatique des interfaces.

[JimKirk]

Ou tu peux aussi faire le contraire, hériter de TThread et implémenter les quelques fonctions de IInterface (QueryInterface, AddRef, Release), dont tu trouvera le code dans TInterfacedObject.
Attention, tu as 2 comportements qui peuvent te rendre dans un état incohérent : le TThread.FreeOnTerminate, et la destruction automatique des interfaces.

OK, merci également pour cette seconde option !