Erreur delete(item) dans TStringList

Bonjour,

Lazarus version: 1.5
Lazarus svn revision: 49541 (SVN)
Lazarus build date: 2015/07/13
Lazarus was compiled for i386-win32 sous W7 64b
Lazarus was compiled with fpc 3.1.1 (SVN).

Dans une TStringList je veux supprimer les chaînes vides. Comme le programme provoque une erreur, j'ai fait un petit programme de test utilisant la même logique qui reproduit systématiquement la même erreur. Le voici dans le onclick d'un bouton.

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

procedure TForm1.Button1Click(Sender:TObject); var i,j:Integer; s:string; MaListe:TStringList; begin MaListe:=TStringList.Create; try MaListe.Add('une chaîne'); MaListe.Add('une autre'); repeat MaListe.Add(''); until MaListe.Count=10; MaListe.Delete(MaListe.Count-1);//là on peut supprimer le dernier item i:=0; while i<MaListe.Count do begin while (MaListe[i]='') and (i<MaListe.Count) do begin s:='Index à supprimer : '+IntToStr(i); for j:=0 to MaListe.Count-1 do s:=s+LineEnding+'J= '+IntToStr(j)+' : '+MaListe[j]; ShowMessage(s);//pour vérifier le contenu de MaListe MaListe.Delete(i);//erreur à l'index 2 end; inc(i); end; finally MaListe.Free; end; end;

---

Il lève systématiquement l'erreur "List index (2) out of bounds" lors du delete(2) lorsque cet item est devenu le dernier de la liste (affichée dans le showmessage pour vérifier).
Ai-je fait une erreur quelque part ou est-ce une anomalie de cette version mise à jour sur les serveurs SVN?

Merci.
André

Edit: Bon..:oops: Sous Delphi 7 j'ai la même erreur, mais je ne comprend toujours pas pourquoi:(

Bonjour,

En fait l'erreur ne se situe pas dans le

Code:

---

MaListe.Delete(i);//erreur à l'index 2

---

qui est bien exécute sans erreur mais dans le test de ta condition de boucle

Code:

---

1 2	while (MaListe[i]='') and (i<MaListe.Count) do

---

qui devrait être

Code:

---

while (i<MaListe.Count) and (MaListe[i]='') do

---

Parce que tu essaie lorsque ton index est à 2 de lire maliste[2] alors qu'il n'y a plus que 2 chaînes dans ta liste avant de tester si tu dépasses les indices.

NB. Cela ne marche que parce que le compilateur génère un code qui court circuite le second terme d'un AND si le premier terme est faux. Il fait de même pour un OR si le premier es vrai.

Cordialement

Ok.
Je n'ignorais pas la raison que tu expliques fort bien, mais je me suis polarisé sur l'erreur que le débogueur pointait sur la ligne du delete:weird:

Un grand merci.
André

Bonsoir.

Si je peux me permettre une petite précision...

Pour faire une boucle pour supprimer des éléments, le plus simple est d'utiliser for... to..., mais en prenant garde de toujours commencer par la fin de la liste --> 0.

Pour supprimer les chaines vides d'un StringList, il suffit de faire :

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:= MaListe.Count - 1 downto 0 do if MaListe[i] = '' then MaListe.Delete(i); end;

---

Cordialement
Thierry

Citation:

---

Envoyé par ThWilliam

Pour faire une boucle pour supprimer des éléments, le plus simple est d'utiliser for... to..., mais en prenant garde de toujours commencer par la fin de la liste --> 0.

---

Je ne l'avais pas précisé dans le code ci-dessus qui n'avait pour objet que de rechercher la cause de l'anomalie, mais dans le programme réel, il faut également supprimer les doublons en gardant l'ordre à partir de l'index 0, ce qui contraint au balayage depuis le début.

Bonne nuit.
André

Bonjour,

Citation:

---

Envoyé par alanglet

Je ne l'avais pas précisé dans le code ci-dessus qui n'avait pour objet que de rechercher la cause de l'anomalie, mais dans le programme réel, il faut également supprimer les doublons en gardant l'ordre à partir de l'index 0, ce qui contraint au balayage depuis le début.

Bonne nuit.
André

---

ce qui contraint au balayage depuis le début --> c'est impossible en cas de suppression de lignes dans la liste.

Parce que dans la ligne while i<MaListe.Count do la valeur de MaListe.Count a été mise dans une variable temporaire cachée à l'entrée de la boucle qui n'est plus réévaluée pendant les itérations.
Supposons une liste de 10 entrées, MaListe.Count vaut 10, et la variable cachée aussi. Tu supprimes 5 entrées, MaListe.Count va valoir 5 mais la variable cachée reste à 10 et c'est elle qui est utilisée dans la boucle.
Donc quand ton i va valoir 6, le programme va essayer d'accéder à MaListe[6] qui n'existe plus et paf !... :aie:

Faut revoir ton code en prenant en compte cette contrainte, genre au lieu de supprimer dans MaListe, tu recopies ce que tu veux garder dans MaListeNew par exemple, et ensuite tu supprimes MaListe.

Bonjour,

Citation:

---

Envoyé par Jipété

Parce que dans la ligne while i<MaListe.Count do la valeur de MaListe.Count a été mise dans une variable temporaire cachée à l'entrée de la boucle qui n'est plus réévaluée pendant les itérations.

---

Pour m'en assurer, je viens de consulter mon vieux bouquin de Wirth datant de 84:)
Dans l'instruction FOR, la valeur finale n'est évaluée qu'une seule fois au départ, mais pour l'instruction WHILE, l'expression qui commande la répétition est évaluée avant chaque répétition.
Dans l'exemple ci-dessus, Count est bien réévalué à chaque fois, raison pour laquelle l'utilisation de FOR serait plus rapide.

André

Citation:

---

Envoyé par alanglet

Dans l'exemple ci-dessus, Count est bien réévalué à chaque fois, raison pour laquelle l'utilisation de FOR serait plus rapide.

---

Ah. Si tu es sûr de ton coup, j'ai peut-être bien dit une bêtise (ça m'arrive, avec cette chaleur [rhôôô l'excuse bidon :mrgreen:]) avec le while. Cependant avec le for ça foire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); var i: integer; st:TStringList; begin st:=TStringList.Create; // remplissage for i := 0 to 9 do st.Add(intToStr(i)); // vidage // for i := 0 to st.Count-1 do // crash ! for i := st.Count-1 downto 0 do // OK // uniquement les pairs if (StrToInt(st[i]) mod 2 = 0) then st.Delete(i); // affichage memo1.Lines := st; memo1.Lines.Add(IntToStr(st.Count)); // 5 st.Free; end;

---

EDIT : et avec le while ça fonctionne, tu as raison !
J'aurai encore appris quelque chose aujourd'hui ! ! !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

// vidage i := 0; while i < st.Count do begin // uniquement les pairs if (StrToInt(st[i]) mod 2 = 0) then st.Delete(i); inc (i); end; // affichage memo1.Lines := st; memo1.Lines.Add(IntToStr(st.Count)); // 5 st.Free;

---

/EDIT

Salut à tous,

Je viens de redécouvrir Lazarus et me balade sur ce forum pour me rappeler quelques techniques.

Dans ton exemple, c'est ton 2eme while qui te provoque une erreur car c'est une boucle infinie.

Code:

---

1 2 3 4 5 6 7 8

while (MaListe[i]='') and (i<MaListe.Count) do begin s:='Index à supprimer : '+IntToStr(i); for j:=0 to MaListe.Count-1 do s:=s+LineEnding+'J= '+IntToStr(j)+' : '+MaListe[j]; ShowMessage(s);//pour vérifier le contenu de MaListe MaListe.Delete(i);//erreur à l'index 2 end

---

;

Ici tu n'incrémentes pas ton compteur "i" ; du coup tu as toujours le même index, ce qui te provoque une boucle infinie à cause du "(i<MaListe.Count)" et essaye donc d'accéder à la chaîne que tu viens de supprimer avec

Code:

---

MaListe.Delete(i);//erreur à l'index 2

---

d'où cette erreur à l'index 2. :P

Cordialement, à bientôt.