Discussion :

[delphi5user]

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.

[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 !

[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

[delphi5user]

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

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

Code :

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

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

Code :

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

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 :

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
 
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!

[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...

[delphi5user]

Merci à tous.
Ce qui me pose le plus de problème c'est la répétition du test :

Code :

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

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 :

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

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.

[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 :

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

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

[delphi5user]

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

Si je remplace ma partie de code par

Code :

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

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.

[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.

[Graffito]

Bonjour,

Code :

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

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 :

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

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