Objet Query avec un héritage multiple

Bonjour,

Désolé mais je n'ai pas trouvé mieux en titre.

Voila j'e suis en train de créer un Obj qui ce connecte à n'importe quelle base, pour ce faire j'ai creé différents objets, un qui herite de BDE un autre de ADO
un autre de IB etc...

Jusque là tout va bien,sauf que chaque objet est quasiement le même (function, procedure, property etc...) a part les spécifité à chaque composant.

Ce que je voudrais c'est créer un objetMaster dans lequel il aurait l'implementation de ce qui est commun en ensuite creer un "double héritage"
un peu comme pour les interface.

le problème c'est que lorsque j'utilise les interfaces je ne réussi pas à implémenter mes procedures, mes property, à priori normal car
les méthodes d'une interface sont abstaites (sauf erreur de ma part)

Voici le code shématisé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

ObjetMaster = Class(Tcomponent) ou Interface MethodeObjetMaster1(.....);Virtual; MethodeObjetMaster2(.....);Virtual; end   ObjBDE =Class(TQuery,ObjetMaster) MethodeObjetMaster2(.....);override MethodeObjetBDE1(.....);override end;   ObjIB =Class(TIBQuery,ObjetMaster) MethodeObjetMaster2(.....);override MethodeObjetIB1(.....);override end;   etc...

---

Pouvez-vous me dire si ce que je souhaite faire est possible.

J'ai bien trouvé la discussion suivante:

http://www.developpez.net/forums/sho...ght=h%E9ritage

mais si vous pouvez une autre idée je suis ok
Cordialement
Qays

delphi ne gere pas l'héritage multiple etnre objets par contre tu peux essayer de passer par une interface

merci mais comment implémenter de procedure dans une interface, je n'y arrive, il ne veut pas compiler car il semblerait que les métode d'une interface sont abstraite

cordialement

L'héritage multiple n'existe pas en Delphi. Et vouloir le contourner avec des interfaces n'est jamais une bonne solution.

Normalement, tu ne devrais pas devoir faire ce que tu veux faire. En principe, tu aurais plutôt dû avoir une classe TAncetre qui implémente les comportements communs. Avec éventuellement l'ajout de méthodes virtuelles (voire abstraites).

Les sous-classes de cette classe utiliseront chacune un objet de la classe de BD qui leur correspond. C'est-à-dire avec une référence à cet objet - qu'ils créent et détruisent dans leurs constructeurs et destructeurs respectifs - plutôt qu'un héritage.

Salut,

Citation:

---

"Voila j'e suis en train de créer un Obj qui ce connecte à n'importe quelle base"

---

L'approche par les interfaces est un bonne chose à mon sens.

Voici comment je ferais:

D'abord je déclare une interface IDataset avec les méthodes qui m'interesse.
Ex.

Code:

---

1 2 3 4 5 6 7

IDataset = interface [GUID] procedure Open; procedure Close; (...) end;

---

Un objet TMonDataSet qui implémente cette interface

Code:

---

1 2 3 4

TMonDataSet = class(TInterfacedObject, IDataset) (...) end;

---

Une interface IQuery
Genre:

Code:

---

1 2 3 4 5 6 7

IQuery = interface [GUID] function GetSQL: string; procedure SetSQL(const Value: string); property SQL: string read GetSQL write SetSQL; (...) end;

---

Un objet TBaseQuery qui sera l'ancêtre de tous les objets Query:

Code:

---

1 2 3 4

TBaseQuery = class(TMonDataSet) (...) end;

---

Ensuite chaque objet Query de chaque type de base de données implémentera l'interface IQuery

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10

TBDEQuery = class(TBaseQuery, IQuery) (...) end;   TADOQuery = class(TBaseQuery, IQuery) (...) end;   (...)

---

Evidemment cet exemple de code est simple car on peut imaginer de gérer tous les objets SQL comme procédure stockée, table....

Par exemple une interface IDatabase pourrais fournir les connexions, renvoyer des IQuery

du coup comme c'est des interfaces, on bénéficie de la gestion automatique de la mémoire lié à ce type de donnée.

J'espère que je suis suffisamment clair.
a+

Merci de votre contribution.

je vous ferais suivre la code mise ne place (une fois terminé)

Cordialement