Discussion :

[Linkin]

J'ai un objet ObjPère et plusieurs classes filles qui en héritent.

Dans l'objet ObjPère, dans son constructor je lui passe un paramètres pId.

Ce paramètre pId me permet de récupérer une donnée, et en fonction de cette donnée, je voudrais choisir quelle classe fille je veux créer.


Si je ne suis pas assez clair, dites-le moi.

[e-ric]

Salut

La solution que tu as choisie est discutable car elle sous-entend que la classe ancêtre connaisse ses descendants. Ce choix signifie aussi que si tu conçois plus tard une nouvelle classe fille (pour une évolution du programme par exemple), tu seras amené à revoir aussi la classe mère. En outre, du fait de l'héritage, chaque fille pourra elle-même instancier des objets de type classe fille, est-ce vraiment attendu ? Cela peut être un choix de conception, mais il doit être motivé.

Il vaudrait mieux séparer la logique de création des classes filles de la hiérarchie de classe qui les regroupe. Dans une telle situation, je pense qu'il est préférable de concevoir une classe spécifique dont le rôle se résume à créer les objets de type classe fille en fonction de ton paramètre pId. C'est ce qu'on appelle une fabrique si j'ai bien compris. Ce qui n'empêche de conserver la hiérarchie que tu as conçu initialement.

Cordialement

e-ric

[Linkin]

Je n'aimais pas la solution vers laquelle je m'orientais, mais je ne voyais pas trop comment faire autrement.

Je vais m'orienter vers le système fabrique.

Merci.

[Bloon]

Pour illustrer ce mécanisme :

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
  // déclaration
 
  TPere = class
  protected
    id : integer;
  public
    procedure p; virtual; abstract;
    constructor Create(pID : integer);
  end;
 
  TPereClass = class of TPere;
 
  TFilleA = class(TPere)
  public
    procedure p; override;
  end;
 
  TFilleB = class(TPere)
  public
    procedure p; override;
  end;
 
  TPereFactory = class
  private
    classes : TStringList;
  public
    constructor Create;
    function fabriquer(pID : integer) : TPere;
    destructor Destroy; override;
  end;
 
  // implémentation
 
{ TPere }
 
constructor TPere.Create(pID: integer);
begin
  id := pID;
end;
 
{ TFilleA }
 
procedure TFilleA.p;
begin
  inherited;
  showMessage('je suis A, id=' + intToStr(id));
end;
 
{ TFilleB }
 
procedure TFilleB.p;
begin
  inherited;
  showMessage('je suis B, id=' + intToStr(id));
end;
 
{ TPereFactory }
 
constructor TPereFactory.Create;
begin
  // classes sert à associer les id aux classes 
  classes := TStringList.Create;
  classes.AddObject('1',TObject(TFilleA));
  classes.AddObject('2',TObject(TFilleB));
end;
 
destructor TPereFactory.Destroy;
begin
  classes.Free;
  inherited;
end;
 
function TPereFactory.fabriquer(pID: integer): TPere;
var
 i : integer;
begin
  i := classes.indexOf(intToStr(pID));
  if (i > -1) then
    result := TPereClass(classes.Objects[i]).Create(pID)
  else
    raise Exception.Create('TPereFactory : pID [' + intToStr(pID) + '] incorrect');
end;
 
// utilisation :
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TPereFactory.Create do
  try
    with fabriquer(2) do
    try
      p;
    finally
      Free;
    end;
  finally
    Free;
  end;
end;

Bloon

[Linkin]

D'accord, je vois mieux le système.

Merci