Conseils pour l'écriture d'une Classe

**delphi5user** · 12/07/2006, 15h43

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** · 12/07/2006, 16h59

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** · 12/07/2006, 17h18

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** · 12/07/2006, 17h52

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** · 12/07/2006, 18h13

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** · 12/07/2006, 18h23

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.

**delphi5user** · 12/07/2006, 18h39

Soit Valeur2 un autre champ de ma Classe TCategorie comme suit

Code :

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

1
2
3
4
private
    FCategorie: TCategorie;
    FValeur : string;
    FValeur2 : string;

Le bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  p := Pos('S',Uppercase(Valeur));
  if ( Valeur2 <> 'AAA' ) then begin
    if ( p = 0 ) 
    then Categorie := catégorie1
    else Categorie := catégorie2;
  end else begin
    	   if ( Valeur = 'BBB' ) or ( Valeur = 'CCC' ) or (Valeur = 'DDD')
      	   then Categorie := catégorie1
    	   else if ( Valeur = 'DDD' ) or (Valeur = 'DDD') or ( Valeur = 'EEE' ) or (Valeur = 'FFF') or
     		   ( Valeur = 'GGG' ) or (Valeur = 'ZZZ' ) 
		   then Categorie := catégorie3
		   else Categorie := catégorie2;
  	   end;

Merci d'avance.

**madfu** · 12/07/2006, 18h55

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** · 12/07/2006, 19h10

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.

**Eric Boisvert** · 12/07/2006, 19h39

je suis bien d'accords avec madfu!

mais Si je comprend bien, tu as 26 valeur possible... soit de
'AAA' jusqu'à 'ZZZ' ?

est-ce qu'il existe autre chose? ex: 'ABC'
si non... pourquoi 3 lettres pareille?
Avec la première lettre, tu peux facilement t'indexer dans
un tableau 26 cases (A-Z) avec dedans
le numéro de catégorie associer?

si t'a seulement 3-4 categeries... ca vaudrait peut-être la peine
d'ecrire 3-4 classes différentes...une pour chaque categorie...
tu pourrais ainsi mettre les traitements différents dans tes classes...
ca te permetterais de te taper la selection du bon traitement à faire
seulement à la création au lieu d'un peu partout dans le code...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TCat1.Affiche()
begin
  //traitement
end;
 
TCat2.Affiche()
begin
  //traitement
end;

Biensûr... je desteste les Chiffres..Categorie1...est-ce qu'il ne serait
pas mieux de trouver de meilleur nom?

Disons que je ne pensait pas que c'était un projet existant...
Tu dois bien comprendre ce que fait le programme pour bien définir
les possibilités qui s'offre à toi...

Je dirais qu'une classe sans fonctions... c'est un peu inutile...
mais bon.. y a toutes sortes d'opignions làdessus...