Discussion :

[delphi5user]

Voici la classe qui me pose soucis :

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
 
unit Uni1;
 
interface
 
 
type
  TCategorie = class;
 
  TPersonne = class(TObject)
  private
    FCategorie: TCategorie;
    FValeur : string;
  public
    constructor Create;
    destructor Destroy; override;
    property Valeur: string Read FValeur Write FValeur;
 
  end;
 
  //Catégories de personnes
  TCatPersonne = (catégorie1, catégorie2, catégorie3, catégorie4);
 
  TCategorie = class(TObject)
  private
    FCategorie: TCatPersonne;
  public
    constructor Create;
    property Categorie: TCatPersonne read FCategorie;
  end;
 
implementation
 
{ Personne }
constructor TPersonne.Create;
begin
  inherited Create;
  {test bien placé??}
  if self.Valeur = 'AAA'
  then ...
  if self.Valeur = 'BBB'
  then ...
  if self.Valeur = 'CCC'
  then...
 
end;
 
destructor TPersonne.Destroy;
begin
  inherited Destroy;
end;
 
{ Categorie }
constructor TCategorie.Create;
begin
  inherited Create;
end;
 
 
end.

Dans mon mon problème c'est le champ 'Valeur' qui détermine la catégorie.
A ce titre, est-ce que la classe TCategorie est inutile?

2e question
Pensez vous qu'il serait plus propre de créer une table dans ma base de données du type Valeur (1,1)-(1,N) Categorie
Cela pour chinter le test :*

Code :

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

1
2
3
4
5
6
  if self.Valeur = 'AAA'
  then ...
  if self.Valeur = 'BBB'
  then ...
  if self.Valeur = 'CCC'
  then...

Merci d'avance.

[Eric Boisvert]

Si tu crois que le nombre de categorie...ou même les strings
qui les représentes peuvent changer... alors j'éviterais à tout prix
de le coder à la dure....

c'est mon avis....

[delphi5user]

Merci.
Le problème c'est que je reprends un vieux code ou il y a pas mal de tests en dur !!
Je cherche à faire évoluer l'appli en supprimant ce genre de tests.
De plus les infos sont stockées dans des types record (et non des classes), à l'ancienne quoi...

Si je reprend mon exemple :
Valeur (1,1)-(1,N) Categorie
Dans mon code, le choix de la catégorie conditionne un certain nombre de tests:

Code :

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

IF categorie = catégorie1 THEN...

Comment supprimes-tu ce genre de test?? Tu as un exemple?

[Graffito]

Bonjour,

Il faudrait un constructeur avec un paramètre :

Code :

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

1
2
3
4
5
6
7
8
9
10
constructor TPersonne.CreateAvecValeur(parValeur:string) ;
begin
  inherited Create;
  Valeur:=parValeur ;
  if Valeur = 'AAA'
  then ...
  if Valeur = 'BBB'
  then ...
  if Valeur = 'CCC'
  then...

L'objet Tcategorie me semble à priori inutile (si il est aussi simple).
Autant mettre directement une property Categorie dans l'objet Tpersonne.

[delphi5user]

Merci.

Si je rajoute le paramètre parValeur dans le constructeur, ma property Valeur de la classe TCategorie n'est-elle pas obsolète??

Est-il possible comme disais Eric de supprimer le code en dur??

[Graffito]

Bonjour,

Si je rajoute le paramètre parValeur dans le constructeur, ma property Valeur de la classe TCategorie n'est-il pas obsolète??

Si il y a une correspondance biunivoque entre valeur et catégorie, on gardera comme var de la classe Tpersonne soit la valeur, soit la catégorie et on déduira de cette variable les properties Categorie et Valeur.

Code :

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

Est possible comme disais Eric de supprimer le code en dur??

Il faudrait nous montrer un extrait du code à améliorer.

[madfu]

Si tu crois que le nombre de categorie...ou même les strings
qui les représentes peuvent changer... alors j'éviterais à tout prix
de le coder à la dure....

c'est mon avis....

Pensez vous qu'il serait plus propre de créer une table dans ma base de données du type Valeur (1,1)-(1,N) Categorie
Cela pour chinter le test :*

Personnellement je n'hésiterais pas une seconde à mettre tout ça dans des tables avec éventuellement une interface de paramètrage(mais je ne connais pas le contexte de ton projet).

Maintenant si tu tiens à ton code alors je te suggère quand même ceci :

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
 
  //Catégories de personnes
  TCatPersonne = (catégorie1, catégorie2, catégorie3, catégorie4);
 
Type
  TPersonne = class(TObject)
  private
    FCategorie: TCatPersonne ;
    FValeur : string;
  public
    constructor Create;
    destructor Destroy; override;
    property Valeur: string Read FValeur Write SetValeur;    
  end;
 
(...)
 
procedure TPersonne.SetValeur(AValue:string);
begin
  FValeur:=AValue;
  if FValeur = 'AAA'
  then ...
  if FValeur = 'BBB'
  then ...
  if FValeur = 'CCC'
  then...
end;

Bonne chance

[delphi5user]

Salut!

Maintenant si tu tiens à ton code alors je te suggère quand même ceci :

C'est pas que je tienne à mon code, je veux bien casser des morceaux pourvu qu e ce soit plus propre!
J'ai effectivement construit une application d'administration de ma base.
Par contre si je lie les Tables Valeur et Categorie, le type enum TCategorie ne me sert plus à rien... non? J'en suis pas si sur.