Petite question de prog

Version imprimable

29/06/2006, 16h24
delphi5user

Petite question de prog

Bonjour,

Je charge une liste de code options dans une TListBox .

Si un de ces codes est du type 'toto' je met un flag à 'true'.

L'utilisateur peut ajouter et supprimer à sa guise les options dans la liste à partir de boutons ajouter/supprimer.
Donc si on ajoute ou supprime l'option "toto" le flag passe de 'true' à 'false' et inversement.

J'ai créé une fonction commune aux 2 boutons. Le problème c'est que le code est lourd : il faut à chaque fois tester si le code ajouté est 'toto'. D'après vos expériences, y aurait il un moyen plus simple de gérer ce cas.

Merci d'avance.
29/06/2006, 17h10
slimjoe

Bonjour!

Je suis désolé j'aimerais beaucoup t'aider mais je ne comprends pas ta question :(.

Est-ce qu'il te serait possible de la reformuler avec la terminologie de Delphi stp ?

Par exemple est-ce que "code" c'est un Item de ta TListBox ? À quoi correspond le "flag" au juste ? Une case à cocher dans la list box ? Une variable globale ? Un tableau de variables globales ?

Aussi, si tu pouvais décrire en gros ce que tu cherches à faire non seulement nous serons en mesure de te conseiller sur ton problème précis mais peut-être aussi pourrons-nous te suggérer des techniques générales qui nous semblerons plus efficaces.

Merci ;) !
29/06/2006, 17h35
tourlourou

je suppose que le mieux est de détecter la présence ou absence de l'item dans le OnChange de la TListBox, pour mettre le flag à jour à chaque modif, qu'elle soit en plus ou en moins

Désolé j'avais voulu faire vite et simple...:aie:

isCodeSpecifique est déclaré comme variable booleen dans Ma TForm.

Code:

1
2
3
4
5
6
7
8
9
10
 
 
Type
  TForm1 : class(TForm)
  ds : TClientDataSet;  
  dsCode : TStringField;
  {...}
Var 
  isCodeSpecifique : boolean;
  insertiondansliste :boolean;

Code:

1
2
3
4
5
6
7
8
9
10
11
 
{Corps du programme} 
//Exécuté une seule fois ! 
for j := 0 to NbItemsDansMaliste - 1 do begin
    ds.Insert;
    dsCode.Value    := Maliste.Items[j] ;
    if ( Maliste.Items.Strings[i] = 'toto' ) or 
       ( Maliste.Items.Strings[i] = 'tata' ) then
       isCodeSpecifique := true;
    ds.Post;
end;

Code:

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
 
procedure TForm1.dsAfterInsert(DataSet: TDataSet);
Begin
    insertiondansliste := True;
End;
 
procedure TForm1.dsAfterPost(DataSet: TDataSet);
var
  i      : integer;
  bool : Boolean;
begin
    if insertiondansliste then begin
      NbItemsDansMaliste := NbItemsDansMaliste + 1;
      insertiondansliste := False;
    end;
    bool:= False;
    for i := 0 to NbItemsDansMaliste - 1 do begin
      if ( Copy(Maliste.Items.Strings[i],0,10) = dsCode.Value ) then begin
        bool := True;
        break;
      end;
    end;
    if ( bool = False ) then
      i := NbItemsDansMaliste - 1;
    Maliste.Items.Strings[i] := dsCode.Value;
    if ( Maliste.Items.Strings[i] = 'toto' ) or 
       (  Maliste.Items.Strings[i]= 'tata' ) then
       isCodeSpecifique := true;
end;
 
procedure TForm1.dsBeforeDelete(DataSet: TDataSet);
var
  i : integer;
  bool : boolean;
Begin
  bool := false;
  for i := 0 to NbItemsDansMaliste - 1 do begin
    if ( copy(Maliste.Items.Strings[i],0,10) = dsCode.Value ) then begin
     	if ( Maliste.Items.Strings[i] = 'toto' ) or 
       	   (  Maliste.Items.Strings[i]= 'tata' ) then
       isCodeSpecifique := False;
      bool := true;
      break;
    end;
  end;
{...}
End;

J'espère avoir été plus clair!

01/07/2006, 18h24
Sub0

Regarde si tes items ne possèderaient pas une propriété libre comme Tag ou Hint ou quelque chose d'autre qui pourrait te permettre de stocker ce flag... car en effet, si tu dois à chaque fois parcourir la totalité des items, ça risque d'être lourd lorsque tu auras beaucoups d'items. Sinon, la solution sera de créer une propriété suplémentaire à l'objet.
[EDIT] Malgré tout, si tu veux effectuer une action à l'ensemble des items, tu seras bien obligé de parcourir la liste...
04/07/2006, 10h52
delphi5user
Merci à tous.
Ce qui me pose le plus de problème c'est la répétition du test :
Code:

1 2 3 4 if ( Maliste.Items.Strings[i] = 'toto' ) or ( Maliste.Items.Strings[i] = 'tata' ) then isCodeSpecifique := ...
En effet je dois rajouter un nouveau test:
Code:

1 2 if ( Maliste.Items.Strings[i] = 'titi' ) then isCodeSpecif2 := true;
Tous ces tests en dur polluent le code. Peut-être faudrait-il que je crée une table pour chaque spécificité. Mais est-ce malin de créer une table pour 2 codes?? Sinon j'avais pensé à une classe dédiée qui traite les codes spécifiques mais ça me paraît un peu dur à monter dans mon cas.
04/07/2006, 11h20
denokan
voilà ce que j'ai fais dans une sitation similaire :

déclaration de ta liste de mots dans une var globale de type TStringList, plus une procédure pour remplir cette liste; ensuite pour tester si un mot fait partie de cette liste, tu fais encore une fonction :
Code:

1 2 3 4 5 6 7 8 var ListeMotsInterdits : TStringList; function IsMotInterdit(mot : string) : Boolean; begin IsMotInterdit := ListeMotsInterdits.IndexOf(mot) >= 0; end;

Denokan. Ta méthode est très bonne pour éviter les répétitions.

Si je remplace ma partie de code par
Code:

1 2 3 4 5 6 7 8 for j := 0 to NbItemsDansMaliste - 1 do begin ds.Insert; dsCode.Value := Maliste.Items[j] ; if ( IsMotInterdit(Maliste.Items.Strings[i]) then isCodeSpecifique := true; ds.Post; end
cela ne risque pas d'être un peu long?? la méthode indexof de l'objet tstringlist fait elle un accès direct ou parcours t - elle la liste du début à la fin?? Ce qui reviendrai à faire 2 boucles.

Merci d'avance.

04/07/2006, 17h41
delphi5user

Dernière problème : Cas ou je dois traiter plusieurs code spécifiques.

Je reviens un peu sur ce que j'ai dis avant. Je pensais créer une table pour chaque code spécifique: chacune des tables référencerait les codes qui valideraient ou invalideraient mon code spécif.

Table1:code spécif 1
Code
Toto
Tata

Table2: code spécif 2
Code
Titi
Tutu

Le truc c'est que je pourrais éventuellement avoir une troisième table voire une 4e table sur le modèle des 2 autres. Ce qui est un peu lourd je pense.

Sinon je pensai créer une table comme suit :
Table: codes spécifiques
Code Flag_code_spé1 Flag_code_spé2
Toto 1 0
Tata 1 0
Titi 0 1
Tutu 0 1

Laquelle semble pour vous la meilleure solution?

Merci d'avance.
04/07/2006, 18h04
Graffito
Bonjour,
Code:

1 2 la méthode indexof de l'objet tstringlist fait elle un accès direct ou parcours t - elle la liste du début à la fin??
Si on cherche des performances, la méthode IndexOf est à proscrire : il faut se créer son propre code qui parcoure la liste qui sera 10 fois plus performant.

Ssi on gère plusieurs listes, il faut soit créer un objet qui hérite des Tstringlist avec sa méthode "IsMotInterdit" , soit passer la liste en paramètre de la fonction.

Code:

function IsMotInterdit(mot : string;ListeMotsInterdits : TStringList) ...