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.