Discussion :

[secondechance]

bonjour à vous
je vien aujourd'huit pour demander ou est la faute car j'ai crée le programme suivant:

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
var ok,trouv:booelan; s:string; i:integer;
begin
trouv:=false;
ok:=inputquery('recherche','entrez la valeur à rechercher',s);
for i:=0 to listbox1.items.count-1 do         
begin
if listbox1.items.strings[i]=s then
trouv:=true;
end;
if trouv=true then
listbox1.selected[i]:=true
else
showmessage('non trouvé');
end;
end.

j'ai essayé avec while

Code :

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

1
2
3
4
5
6
7
while (trouv=false) and (i<=listbox1.items.count-1) do
begin
if listbox1.items.strings[i]=s then
trouv:=true
else
inc(i);
end;

mais le problème que le compilateur on utilisant while i est hors limite [0]
et avec for i hors limite(4 ou 5... ça dépend de nombre de items dans la list),
s'il vous plait ma tête va exploser il m'est arriver ça plusieurs jours et je n'arrive plus a réfflchir, on dit que le compilateur ne fait pas de fautes, alors ou est la mienne
merci d'avance

[Kephuro]

C'est pas très lisible ton texte. Tu ferais mieux d'éditer ton message et d'entourer ton code avec les balises [CODE].

En utilisant ton débuggueur, sur quelle ligne se produit ton erreur ?

Sinon, ta ligne :

Code :

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

listbox1.selected[i]:=true

Ne veut rien dire. Selected est un booléen, tu ne peux pas lui accoler un index !

Et là, tel que tu as écrit ta boucle for, tu auras autant de messages 'Non trouvé' que d'éléments dans ta liste (sauf lorsque la référence est trouvée).


En lisant ton code j'arrive pas à voir à quel moment tu pourrais avoir un index hors limite, mais j'ai codé toute la journée et je suis fatigué :p

EDIT: Après vérification, listbox1.selected[i]:=true est une syntax correcte. L'IDE m'indique la bonne syntaxe, par contre la doc Delphi ne m'indique pas cette syntaxe (le descriptif en parle, cependant). Mea Culpa.

[SergioMaster]

en admettant que ce qui est demandé n'existe qu'une seule fois ou pas du tout dans la listbox, cela pourrait donner quelquechose comme ceci :

Code non testé :

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

1
2
3
4
5
6
7
8
9
10
11
var s:string; i:integer;
begin
listbox1.ClearSelection;
inputquery('recherche','entrez la valeur à rechercher',s);
for i:=0 to listbox1.items.count-1 do
 if listbox1.items.strings[i]=s then
  begin
    listbox1.selected[i]:=true;
    break;
  end;
if not listbox1.SelCount=0 then showmessage('non trouvé');

avec while

Code toujours non testé :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var  s:string; i:integer;
begin
listbox1.ClearSelection;
inputquery('recherche','entrez la valeur à rechercher',s);
i:=0;
while (i<Listbox1.Selcount)  AND (listbox1.SelCount=0)
  begin
    if  listbox1.items.strings[i]=s 
          then  listbox1.selected[i]:=true
          else inc(i);
  end;
if not listbox1.SelCount=0 then showmessage('non trouvé');

je sais je n'ai pas testé les codes mais là j'ai un peu la flemme

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
trouv:=false;
ok:=inputquery('recherche','entrez la valeur à rechercher',s);
for i:=0 to listbox1.items.count-1 
do begin
  if listbox1.items.strings[i]=s then
  trouv:=true;
end;
if trouv 
then listbox1.selected[i]:=true // la valeur de i n'est pas déterminée en sortie de boucle et doit donc générer un indice hors limite
else showmessage('non trouvé');

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
trouv:=false;
ok:=inputquery('recherche','entrez la valeur à rechercher',s);
i:=0; // s'il est bien mis à 0 avant le while, pas de raison d'index hors limite en sortie...
while (trouv=false) and (i<=listbox1.items.count-1) 
do begin
  if listbox1.items.strings[i]=s 
  then trouv:=true
  else inc(i);
end;
if trouv 
then listbox1.selected[i]:=true 
else showmessage('non trouvé');

[secondechance]

merci à vous, bien sur j'ai inisialisé i (i:=0).
mais je vai vous annoncer la nouvelle:
vos code ne marche pas , même problème ..........???
pour l'instruction listbox1.ClearSelection; ne le connait pas , il m'entionne toujour que non définie, non déclaré.
je ne sais pas ou est le probleme si c'est moi ou vous ou mon compilateur, j'utilise delphi5, il ya de la 3 ans , j'ai chercher la nouvelle version 2005 mais introuvable.
pour l'instruction
dites mois s'il vous plait ou est le probleme, c'est selected[i] ou bien quoi
merci

[SergioMaster]

listbox1.ClearSelection;
c'est selected[i] ou bien quoi
merci

ClearSelection Permet d'annuler toute sélection préalablement faite mais effectivement n'existe peut-être pas en D5 (je travaille maintenant avec D2006 , j'ai regardé sur D3 et effectivement elle n'existe pas, sur D7 par contre oui)

en Essayant avec D3 je me suis également apperçu que je ne pouvais pas affecter une valeur True a ListBox1.Selected[i] , donc OUI

c'est selected[i]

[tourlourou]

bon, je suis en D5; voici le code concernant le fameux Selected :

Code :

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

1
2
3
4
5
6
7
property Selected[Index: Integer]: Boolean read GetSelected write SetSelected;
procedure SetSelected(Index: Integer; Value: Boolean);
procedure TCustomListBox.SetSelected(Index: Integer; Value: Boolean);
begin
  if SendMessage(Handle, LB_SETSEL, Longint(Value), Index) = LB_ERR then
    raise EListError.CreateResFmt(@SListIndexError, [Index]);
end;

Elle semble bien affectable, mais génère systématiquement une erreur... et l'aide en ligne n'en parle que pour consulter sa valeur !

Je n'ai donc pas d'explication.

[tourlourou]

pour une version plus moderne de delphi, regarde Turbo Explorer de CodeGear

[Jipété]

Salut, Tourlourou !

Elle semble bien affectable, mais génère systématiquement une erreur... et l'aide en ligne n'en parle que pour consulter sa valeur !

En D7 (perso) elle est bien affectable, et sans erreur : je pose une listbox sur une form, je lui ajoute 4 items, je code

Code :

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

1
2
3
4
procedure TForm1.FormActivate(Sender: TObject);
begin
  listbox1.Selected[2] := True;
end;

et j'ai bien la 3e ligne en bleu.

Valà,
--
jp

[skywaukers]

Bonjour,

ce b'ai nullement un problème du compilateur, mais d'algorithme. En effet tu parcours complètement la liste, donc à la sortie i sera toujours > au count de ton listbox, l'erreur est logique.

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
procedure TForm1.Button1Click(Sender: TObject);
var ok,trouv:boolean; s:string; i:integer;
begin
  trouv:=false;
  ok:=inputquery('recherche','entrez la valeur à rechercher',s);
  for i:=0 to listbox1.Items.count-1 do
  begin
    if listbox1.items.strings[i]=s then
    begin
      trouv:=true;
      break; <-- Permet d interrompre la boucle lorsque tu as trouvé
    end;
  end;
  if trouv=true then
    listbox1.selected[i]:=true <-- i a bien la valeur de l index correct
  else
    showmessage('non trouvé');
end;

@++
Dany

[Gilbert Geyer]

Bonjour,

Bizarre cette recherche via une boucle alors qu'on a la méthode IndexOf

Code :

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

1
2
3
4
5
6
 
var     indice : integer;
...
indice:=listbox1.Items.IndexOf(S); 
if indice<0 then trouv:=false else trouv:=true;
...

A+

[tourlourou]

bien vu le IndexOf !
au passage :

Code :

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

trouv:=indice>-1;

mais ça n'explique pas l'erreur du Selected en D5

[secondechance]

bonjour tous le monde;
merci pour votre aide, j'ai 2 nouvelles:
la 1er: que j'ai appris beaucoup de chose grace à cette erreur;
la 2eme: c'est que j'ai essayer toutes vos suggestion, mais ça n'a pas marché, là je constate que le défaut c'est mon compilant D5, on est pas a ce point bête des membres éprouvés, des modérateurs......à la fin rien;
il fau que je change mon D5, vous me proposée quel version s'il vous plait, et qui ne me rend pas folle comme mon D5, car j'ai mal à la tête.....
mes salutations

[tourlourou]

là : http://www.developpez.net/forums/sho...84&postcount=8 (c'est pas loin : 6 posts au dessus...)

[Eric Boisvert]

bon, je suis en D5; voici le code concernant le fameux Selected :

Code :

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

1
2
3
4
5
6
7
property Selected[Index: Integer]: Boolean read GetSelected write SetSelected;
procedure SetSelected(Index: Integer; Value: Boolean);
procedure TCustomListBox.SetSelected(Index: Integer; Value: Boolean);
begin
  if SendMessage(Handle, LB_SETSEL, Longint(Value), Index) = LB_ERR then
    raise EListError.CreateResFmt(@SListIndexError, [Index]);
end;

Elle semble bien affectable, mais génère systématiquement une erreur... et l'aide en ligne n'en parle que pour consulter sa valeur !

Je n'ai donc pas d'explication.

Un F1 sur LB_SETSEL confirme que la syntax
ListBox1.Selected[i]:=TRUE;
qui fonctionne seulement avec des listbox avec la propriété MultiSelect=TRUE.

[Aka Guymelef]

En effet Eric Boisvert, d'ailleurs la version D7 de TCustomListBox.SetSelected est assez différente de sa version D5 et tendrais à le confirmer. Dans ce cas pour une ComboBox avec le MultiSelect à False il faut directement jouer avec la propriété ItemIndex à mon avis.

[tourlourou]

Bien vu, on croit être allé au fond des choses, et puis... non !