Discussion :

[sgmsg]

Bonjour à tous

Dans la lignée de la dernière discussion, quels sont les directives à ajouter aux descendants de troisième générations afin de choisir l'ancêtre de première ou de seconde génération.

Merci d'avance

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
Grand_Pere=class
public
    function Maj:integer;virtual;
end;
Pere=class(Grand_Pere)
public
    function Maj:integer;override;
end;
Fille=class(Pere)
public
    function Maj:integer;override;
end;
Fils=class(Pere)
public
    function Maj:integer;override;
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
function Grand_Pere.Maj:integer;
begin
     result:=1;
end;
function Pere.Maj:integer;
begin
    result:=inherited Maj +1;
end;
function Fils.Maj:integer;
begin
    result:=inherited Maj +1;//hérite du père : result:=3;
end;
function Fille.Maj:integer;
begin
    result:=inherited {???}Maj -1;//afin d'hériter de Grand_Pere seulement pour cette fonction et que le résultat soit 0
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var G:Grand_Pere;P:Pere;F:Fille;M:fils;
begin
   G:=Grand_Pere.create;
   P:=Pere.create;
   F:=Fille.create;
   M:=Fils.create;
 
form1.caption:= inttostr(G.Maj)+' '+inttostr(p.Maj)+' '+inttostr(M.Maj)+' '+inttostr(F.Maj);
end;
 
end.

[ALWEBER]

Utiliser le transtypage :
Avec ma fille que je considère comme mon grand-père

Code :

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

with F as GrandPere do MAJ

Pour information et par convention lorsque l'on décrit une classe on préfixe par T plutôt TGrandPere que grandPere pour éviter de confondre la classe et son instance

Mais je ne veux pas rentrer dans les histoires de famille

[Andnotor]

Le transtypage doit alors être externe à la classe sous peine de réentrance, à moins de supprimer l'override et casser le comportement polymorphique.

Ceci ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
type
  Fille=class(Pere)
  public
    function Maj:integer;override;
  end;
 
function Fille.Maj:integer;
begin
    result := Grand_Pere(Self).Maj -1;
end;

Le teste devrait être fait au niveau du père pour ignorer la fille :

Code :

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

1
2
3
4
5
6
7
function Pere.Maj:integer;
begin
  result := inherited;
 
  if not InheritsFrom(Fille) then
    inc(result);
end;

[ALWEBER]

Le transtypage doit alors être externe à la classe sous peine de réentrance, à moins de supprimer l'override et casser le comportement polymorphique.
]

Je confirme
Autre possibilité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
...
function Fille.Maj: integer;
var
  v1 : Grand_Pere ;
begin
  v1 := Grand_Pere.Create  ;
  result := v1.Maj ;
  v1.free ;
end;
...

C'est une figure de style mais en Delphi cela n'a pas grand intérêt.
Notre interlocuteur essaie d'appliquer certainement le polymorphisme selon le paradigme de la POO qui n'est pas le paradigme initial de Object Pascal.

[sgmsg]

Merci à tous

Utiliser le transtypage :
Pour information et par convention lorsque l'on décrit une classe on préfixe par T plutôt TGrandPere que grandPere pour éviter de confondre la classe et son instance

Mais je ne veux pas rentrer dans les histoires de famille

Tout-à-fait. J'utilise pour un objet "O_", pour les types non-objet j'utilise "t" sauf quand ce sont des type tableau j'utilise "a"

[sgmsg]

Merci

Le transtypage doit alors être externe à la classe sous peine de réentrance, à moins de supprimer l'override et casser le comportement polymorphique.

Le teste devrait être fait au niveau du père pour ignorer la fille :

Code :

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

1
2
3
4
5
6
7
function Pere.Maj:integer;
begin
  result := inherited;
 
  if not InheritsFrom(Fille) then
    inc(result);
end;

Dans la question, je demandais que la fille hérite directement du grand père pour des raisons de simplicité. Mais pour mes besoins, je veux surtout que "Fille" hérite de "Fils" parce que dans 95% des fonctions de "Fils" sont partagées par "Fille" mais les quelques différences doivent être réécrite à partir de "Pere"

[ShaiLeTroll]

Pourquoi ne pas faire un autre objet de délégation
L'héritage n'est pas forcément la solution, la composition peut-être un meilleur compromis
Voir aussi la pattern Strategy qui sera intéressante à mettre en place au lieu d'un héritage qui semble être bricolé

[sgmsg]

Pourquoi ne pas faire un autre objet de délégation
L'héritage n'est pas forcément la solution, la composition peut-être un meilleur compromis
Voir aussi la pattern Strategy qui sera intéressante à mettre en place au lieu d'un héritage qui semble être bricolé

Faire une class Enfant d'où dérivera Fils et Fille. et bien oui c'est plus propre.

Strategy connait pas, je jette un coup d'oeil.

Merci

[Andnotor]

Autre possibilité :

Ce qui impliquera encore un Assign/AssignTo, ça devient un peu lourd