Discussion :

[quarkz]

Salut !

J'utilisé cette fonction bien pratique selon les conseils trouvés dans la FAQ delphi, mais voila a chaque fois que ma listbox est vide ou que rien n'est selectionné, j'ai une erreur "indice de liste hors limite (-1)" Pourtant je lui ai bien spécifié ce que je voulais (pour le reste ca fonctionne parfaitement)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
case ansiindexstr(listbox2.items[selec], [La ya mes chaines...]
// puis toutes les réponses jusqu'a la fin
   ...
 
   19: begin
       diff := minutespan(timefab, now);
       totalfab := inttostr(trunc(diff));
       end;
   -1: showmessage('Selectionnez un nom !');
   end;
end;

Alors la vraiment je seche! je ne vois vraiment pas ce que j'ai fait de mauvais... Merci d'éclairer ma lanterne!

[neilbgr]

Simplement, lorsque tu fais listbox2.items[selec] c'est déjà trop tard si selec = -1.

Il te faut faire un test avant de faire ton case of :

Code :

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

1
2
3
4
5
6
if selec>-1 then
  case [..........]
else
  begin
    // Rien n'est selectionné dans la listBox
  end

[quarkz]

Bon ca marche comme ca je te remercie
Ceci dit je ne comprend toujours pas pourquoi ca ne marche pas

Code :

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

1
2
3
4
5
6
7
8
uses StrUtils;
...
case AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3']) of
  0 : // Str = 'Chaîne1'
  1 : // Str = 'Chaîne2'
  2 : // Str = 'Chaîne3'
  -1 : // Str ne vaut aucune de ces trois chaînes
end;

C'est l'exemple de la FAQ, et d'apres ce que j'en avait compris la derniere ligne servait justement a indiquer quoi faire lorsque str (donc mon listbox2.items[selec]) est vide... Alors pourquoi dans mon cas c pas bon?

[neilbgr]

C'est l'exemple de la FAQ, et d'apres ce que j'en avait compris la derniere ligne servait justement a indiquer quoi faire lorsque str (donc mon listbox2.items[selec]) est vide... Alors pourquoi dans mon cas c pas bon?

Car il faut distinguer deux cas (pour l'ex AnsiIndexStr(Str, ['Chaîne1', 'Chaîne2', 'Chaîne3'])):

1. Si Str n'est pas dans la liste, AnsiIndexStr te renvoie bien -1
2. Si Str de le récupère d'un item de ta listBox et que tu lui donne comme indice -1, c'est trop tard !
   Lors du GetItem(-1), l'indice -1 est hors de porté donc exception
   S'il y a exception, Str ne sera pas rempli et on arrete tout: on sort de la procédure

Et toi, c'est bien le cas 2.

[quarkz]

Okiiii! je vois tout a fait ^^

Je te remercie beaucoup!