Accueil > Forum > > > > POO : problème d'héritage
POO : problème d'héritage
mercredi 19 octobre 2005 à 21:31:34 |
POO : problème d'héritage

thierryC
|
Bonjour,
Dans un programme en Delphi6, j'ai le souci suivant :
une classe A contient un objet de type Classe B ; dans cette classe B, je crée un objet de type Classe A.
Maintenant, je fais dériver la classe A en A'. Est-il possible que lors
de l'appel de la méthode de la classe B depuis A' ce soit un objet de
type Classe A' qui soit créé ?
Merci de votre aide.
Thierry
|
|
jeudi 20 octobre 2005 à 12:55:52 |
Re : POO : problème d'héritage

Loda
|
Je dirais : je crois (je ne l'ai jamais fait)
mais il faut changer un peu ta structure.
tu peux envisager d'avoir un champ type "owner" dans ta class B qui
serait un pointeur sur la classe qui le possède (passé dans le create).
ensuite, tu peux aller rechercher la classe réel à l'execution de ce
champ (as & CO). et donc créer un objet de cette meme classe.
mais c'est possible que cetet solution ne marche pas. C'est juste une idée.
Loda
|
|
jeudi 20 octobre 2005 à 21:21:15 |
Re : POO : problème d'héritage

thierryC
|
Salut,
Ta solution me convient bien, c'est celle à laquelle j'avais pensé 
Mais j'ai le problème de la création d'un objet à partir d'un autre objet, par copie et non par l'instanciation d'une classe.
Comment est-ce possible ?
Thierry
|
|
jeudi 20 octobre 2005 à 21:48:24 |
Re : POO : problème d'héritage

Delphiprog
|
Soit les classes A, B et A2 (descendant de A) :
unit Unit2;
interface
uses Classes;
type //Déclaration forward TClassB = class;
TClassA = class(TObject) private FClassB: TClassB; public constructor Create; destructor Destroy;override; procedure Display(Lines: TStrings);virtual; end;
TClassB = class(TObject) private FClassA: TClassA; public constructor Create(Aref: TClassA); procedure Display(Lines: TStrings); end;
TClassA2 = class(TClassA) public procedure Display(Lines: TStrings);override; end;
implementation
{ TClassA }
constructor TClassA.Create; begin inherited; FClassB := TClassB.Create(Self); end;
destructor TClassA.Destroy; begin FClassB.Free; inherited; end;
procedure TClassA.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('A => ' + Self.ClassName); Lines.Append('FClassB => ' + FClassB.ClassName); end;
{ TClassB }
constructor TClassB.Create(Aref: TClassA); begin inherited Create; FClassA := ARef; end;
procedure TClassB.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('B => ' + Self.ClassName); Lines.Append('FClassA => ' + FClassA.ClassName); FClassA.Display(Lines); end;
{ TClassA2 }
procedure TClassA2.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('A2 => ' + Self.ClassName); Lines.Append('FClassB => ' + FClassB.ClassName); end;
end.
Et le code lié à un bouton sur une fiche comprenant, par ailleurs, un TMemo :
procedure TForm1.Button1Click(Sender: TObject); var ClassA : TClassA; ClassB : TClassB; ClassA2 : TClassA2; begin Memo1.Clear;
ClassA := TClassA.Create; ClassA.Display(Memo1.Lines); ClassA.Free;
ClassA2 := TClassA2.Create; ClassA2.Display(Memo1.Lines);
ClassB := TClassB.Create(ClassA2); ClassB.Display(Memo1.Lines); ClassB.Free;
ClassA2.Free; end;
Ce court exemple démontre la faisabilité du problème exposé à quelques restrictions près : l'objet de classe TClassB ne pourra pas appeler des méthodes qui ne seraient pas déclarées dans la classe TClassA. L'intérêt serait donc assez limité.
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
|
|
jeudi 20 octobre 2005 à 22:25:22 |
Re : POO : problème d'héritage

thierryC
|
On est sur la bonne voie, mais pas encore tout à fait au but ...
Dans ma classe B, je voudrais instancier un nouvel objet. Par exemple, je modifie la déclaration en
TClassB = class(TObject) private FClassA: TClassA;
FClassAA : TClassA; public constructor Create(Aref: TClassA); procedure Display(Lines: TStrings);
end;
et
constructor TClassB.Create(Aref: TClassA); begin inherited Create; FClassA := ARef;
FClassAA := ARef; end;
Si on suit ta proposition, je vais me retrouver avec FClassA=FClassAA,
tous deux de type TClassA ou TClassA2 selon l'appel, mais pointant sur
le même objet. Comment est-il possible de les dissocier ? Il faudrait
faire une copie dynamique de ARef que je puisse implémenter dans le
constructeur de TClassB.
Thierry
|
|
jeudi 20 octobre 2005 à 23:16:43 |
Re : POO : problème d'héritage

Delphiprog
|
En réfléchissant un peu, je me suis dit qu'il existait des méthodes clonage dans d'autres langages. En C++, on utilise le terme de "constructeur de copie". Je me suis inspiré du principe de ce dernier et voici ce qu'il en ressort :
type //Déclaration forward TClassB = class;
TClassA = class(TObject) private FClassB: TClassB; public constructor Create;overload; //Constructeur de copie * constructor Create(A: TClassA);overload; destructor Destroy;override; procedure Display(Lines: TStrings);virtual; end;
TClassB = class(TObject) private FClassA: TClassA; FClassAA: TClassA; public constructor Create(Aref: TClassA); procedure Display(Lines: TStrings); end;
TClassA2 = class(TClassA) public procedure Display(Lines: TStrings);override; end;
implementation
{ TClassA }
constructor TClassA.Create; begin inherited; FClassB := TClassB.Create(Self); end;
*constructor TClassA.Create(A: TClassA); *begin * inherited Create; * FClassB := A.FClassB; *end;
destructor TClassA.Destroy; begin FClassB.Free; inherited; end;
procedure TClassA.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('A => ' + Self.ClassName); Lines.Append('FClassB => ' + FClassB.ClassName); end;
{ TClassB }
constructor TClassB.Create(Aref: TClassA); begin inherited Create; FClassA := ARef; //Utilisation du constructeur de copie * FClassAA := TClassA.Create(FClassA); end;
procedure TClassB.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('B => ' + Self.ClassName); Lines.Append('FClassA => ' + FClassA.ClassName); * Lines.Append('FClassAA => ' + FClassAA.ClassName); FClassA.Display(Lines); end;
{ TClassA2 }
procedure TClassA2.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('A2 => ' + Self.ClassName); Lines.Append('FClassB => ' + FClassB.ClassName); end;
end.
NB : J'ai mis un astérisque en face des lignes modifiées ou ajoutées.
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
|
|
vendredi 21 octobre 2005 à 23:28:59 |
Re : POO : problème d'héritage

thierryC
|
Merci de ton aide.
Je me retrouve effectivement avec 2 objets bien séparés, mais ils sont
de types différents. Or, j'aimerai que les 2 objets soient du même
type, à savoir TClassA2.
Le fait d'utiliser la classe TClassA pour définir mon objet FClassAA
dans le constructeur de TClassB le type d'office. Il faudrait pouvoir
appeler le type de l'objet FClassA, qui, lui, est variable. Je suis à
la recherche de cette fonction magique.
Thierry
|
|
samedi 22 octobre 2005 à 09:56:56 |
Re : POO : problème d'héritage

Delphiprog
|
Réponse acceptée !
Il n'y a pas de "fonction magique" et, à mon humble avis, la seule solution consiste à utiliser une référence de classe (également appelée métaclasse). Soit l'unité Unit2 modifiée :
unit Unit2;
interface
uses Classes;
type //Déclaration forward TClassB = class;
//Déclaration d'une métaclasse TClassAClass = classof TClassA;
TClassA = class(TObject) private FClassB: TClassB; public constructor Create;overload; //Constructeur de copie constructor Create(A: TClassA; AClass: TClassAClass);overload; destructor Destroy;override; procedure Display(Lines: TStrings);virtual; end;
TClassB = class(TObject) private FClassA: TClassA; FClassAA: TClassA; public constructor Create(Aref: TClassA; AClass: TClassAClass); procedure Display(Lines: TStrings); end;
TClassA2 = class(TClassA) public procedure Display(Lines: TStrings);override; end;
implementation
{ TClassA }
constructor TClassA.Create; begin inherited; FClassB := TClassB.Create(Self, TClassAClass(Self.ClassType)); end;
constructor TClassA.Create(A: TClassA; AClass: TClassAClass); begin inherited Create; FClassB := A.FClassB; end;
destructor TClassA.Destroy; begin FClassB.Free; inherited; end;
procedure TClassA.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('A => ' + Self.ClassName); Lines.Append('FClassB => ' + FClassB.ClassName); end;
{ TClassB }
constructor TClassB.Create(Aref: TClassA; AClass: TClassAClass); begin inherited Create; FClassA := ARef; //Utilisation du constructeur de copie FClassAA := AClass.Create(Aref, AClass); end;
procedure TClassB.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('B => ' + Self.ClassName); Lines.Append('FClassA => ' + FClassA.ClassName); Lines.Append('FClassAA => ' + FClassAA.ClassName); //FClassA.Display(Lines); end;
{ TClassA2 }
procedure TClassA2.Display(Lines: TStrings); begin Lines.Append(''); Lines.Append('A2 => ' + Self.ClassName); Lines.Append('FClassB => ' + FClassB.ClassName); end;
end.
NB : j'ai mis en rouge sombre les lignes ajoutées ou modifiées.
Dans la fiche de démo, le code doit aussi être modifié :
procedure TForm1.Button1Click(Sender: TObject); var ClassA : TClassA; ClassB : TClassB; ClassA2 : TClassA2; begin Memo1.Clear;
ClassA := TClassA.Create; ClassA.Display(Memo1.Lines);
ClassA2 := TClassA2.Create; ClassA2.Display(Memo1.Lines);
//Les 2 membres seront du type TClassA2 ClassB := TClassB.Create(ClassA2, TClassA2); ClassB.Display(Memo1.Lines); ClassB.Free;
//Les 2 membres seront du type TClassA ClassB := TClassB.Create(ClassA, TClassA); ClassB.Display(Memo1.Lines); ClassB.Free;
ClassA.Free; ClassA2.Free; end;
A dire vrai, le deuxième argument dans l'appel du constructeur de la classe B peut être de type TClassA ou d'une des classes descendant de cette dernière.
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
|
|
samedi 22 octobre 2005 à 09:59:01 |
Re : POO : problème d'héritage

Delphiprog
|
Arghhh !!!!     La mise en page de ce site m'a supprimé l'espace entre Class et Of dans : //Déclaration d'une métaclasse TClassAClass = classof TClassA;
Bien évidement, il faut lire //Déclaration d'une métaclasse TClassAClass = class of TClassA;
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
|
|
mardi 25 octobre 2005 à 20:45:14 |
Re : POO : problème d'héritage

thierryC
|
Merci pour la solution, c'est exactement ce que je cherchais.
Cordialement,
Thierry
|
|
Cette discussion est classée dans : problème, type, objet, classe, poo
Répondre à ce message
Sujets en rapport avec ce message
liste d'object [ par la tuque ]
Bonjour,j'ai un petit problème je veux créer un liste d'objet que j'ai créer .type TCarte = class(tobject) Valeur:integer; Sorte:String; priva
Découpe d'un 'objet 3D' sous GLScene [ par Champy33 ]
Bonjour à tous et à toutesJe me suis lancé dans la fabrication bénévole d'un logiciel qui servira à faire des plans de meubles au sein de l'associatio
Problème avec champ de type Time dans MySQL [ par mattinette ]
Bonjour,Je réalise un programme de test qui stock des temps de fonctionnement de produit dans un champs de type time dans une table MySQL.Tant que le
Saisie des notes (Gestion des notes) [ par freeyousri ]
Slt tout le monde,J'ai commencé à programmer une application de gestion de la scolarité, et j'ai presque finis, mais le problème c'est que j'ai rencon
Existe t il une sorte de polymorphismes pour les membres d'une classe [ par anisb ]
Je vais expliquer mon probleme et j'espere que je vais pouvoir être precis et comprehensible alors voilà - j'ai une Classe A de laquelle Hérite deux C
Classe et méthode abstraites [ par furax13 ]
j'utilise une classe abtraite TclassA qui contient un certains nombres d'attributs.Je définis n classe de type TclassB qui héritent de TclassA.J'aimer
Lecture fichier XML vers une ou plusieurs classes [ par furax13 ]
Soit le fichier xml suivant : 0 <coefficient nom=
déplacement d'une image dans un objet Timage [ par ninaleo ]
Bonsoir tout le monde J'ai un petit problème pour lequel je ne trouve pas de solution évidente et j'aimerais vous le soumettre. J'ai un objet T
Coller une image dans un objet tdbimage [ par famjerom ]
J'ai créé une base de donnée SQL SERVER. Une table contient une image (type image ou varbinary) affichée à l'aide de l'objet VCL TDBImage de Delphi 20
POO: Classe derivée [ par naugondo ]
<TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB
Livres en rapport
|
Derniers Blogs
TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|