[D7] Explication de code

Je débute avec Delphi 7 et je rencontre un problème sur le code suivant
destiné supprimer les lignes d'un TValueListEditor (nommé TVLE dans le code)

Code:

---

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

var i:integer; Tot:integer; begin // Remplissage du TValueListEditor for i:=1 to 5 do TVLE.InsertRow('Ligne',IntToStr(i),true)   // Suppression de toutes les lignes Tot:=TVLE.RowCount; while Tot>1 do begin {Ignore la ligne des titres } TVLE.DeleteRow(Tot-1); Tot:=TVLE.RowCount; end;

---

La suppression génére une exception, avec un problème d'indice. En fait en débugant, quand RowCount renvoie 2, la supression est faite, mais la boucle continue, RowCount renvoie toujours 2, et la suppression suivante fait tout planter.

Je ne comprend pas ce qui cloche !!!!
Existe-t-il une méthode pour vider totalement le contenu d'un TValueListEditor (mes recherches à ce sujet n'ont rien données)

Merci d'avance pour votre aide

Code:

---

1 2	Tot:=TVLE.RowCount; while Tot>1 do begin {Ignore la ligne des titres }

---

Vu que le nombre d'iteration est connu a l'avance (RowCount) j'opterais plutot pour une boucle for :

Code:

---

For i := 1 to TVLE.RowCount-1 do

---

On part de 1 pour eviter la ligne 0 si j'ai bien compris (ligne des titres) et on termine a RowCount-1 car pour N Lignes les indices vont de 0 a N-1

[EDIT] Par contre dans ce genre de cas ou la taille du tableau a parcourir diminue en cours de boucle je te conseile de faire au sein de la boucle

Code:

---

TVLE.DeleteRow(1)

---

ou bien de faire une boucle for decrementale (For ... Downto ... do)

Code:

---

1 2	TVLE.DeleteRow(Tot-1); Tot:=TVLE.RowCount;

---

La est ton erreur : Tu delete bien Tot-1 car Tot est initialisé a RowCont et TVLE possede pour dernier incide RowCount-1 donc Tot-1
Personnelement j'aurais plutot placé uen variable ID a RowCont-1 et delete la ligne ID ... C'est plus clair a la lecture ;)

Par contre la ligne suivante reaffecte RowCount a Tot, ce qui parrait normal vu que RowCount devrais maintenant renvoyer une ligne de moins ... mais il semblerais que le systeme de gestion des suppression de ton objet ne l'entende pas de cette maniere. Donc tu conserve un rowcount a 2 et quand tu tente d'acceder a Tot-1, c'est a dire au RowCount original-1 tu tente en fait d'acceder a la ligne que tu viens de supprimer.
D'ou ton erreur.

Je lui prefere le code suivant, plus sur :

Code:

---

Tot := Tot-1;

---

Pour l'explication je ne sais pas .... ca parrait etrange en effet.

Mouais, enfin, sous D6 c'est pareil, un prob de propriétés que nous confondons certainement entre le nb de lignes "physiques" et celui des items...

Le code suivant marche :

Code:

---

1 2 3 4 5

Tot:=TVLE.Strings.Count; while Tot>1 do begin {Ignore la ligne des titres } TVLE.DeleteRow(Tot-1); Tot:=TVLE.Strings.Count; end;

---

Question code dans des cas pareils je préfère la boucle For elle est faite pour ça


je pense que c'est plus propre comme ça.

Code:

---

TVLE.Strings.Clear;

---

Citation:

---

Envoyé par qi130

Mouais, enfin, sous D6 c'est pareil, un prob de propriétés que nous confondons certainement entre le nb de lignes "physiques" et celui des items...

---

Je ne connait pas ce composant ... masi c'est fort possible en effet ;)
J'ai connu ca sous d'autres compos

Citation:

---

Envoyé par aityahia

je pense que c'est plus propre comme ça.

Code:

---

TVLE.Strings.Clear;

---

---

Bien vu ;)

Citation:

---

Envoyé par aityahia

je pense que c'est plus propre comme ça.

Code:

---

TVLE.Strings.Clear;

---

---

:nono:

car la ligne de titre disparait aussi...

Citation:

---

Envoyé par Skywalker

Code:

---

while Tot>1 do begin {Ignore la ligne des titres }

---

---

Citation:

---

Envoyé par Clorish

Je ne connait pas ce composant ... masi c'est fort possible en effet ;)
J'ai connu ca sous d'autres compos

---

J'ai pas le source sous les yeux, mais peut-être que le DeleteRow "oublie" de supprimer l'item de String correspondant, ou alors un bug sur le compteur ?

Citation:

---

Envoyé par qi130

:nono:

car la ligne de titre disparait aussi...

---

est vous sur ? :?

je viens de faire le test, les titres sont stocké dans TitleCaptions.

Citation:

---

Envoyé par aityahia

est vous sur ? :?.

---

En positionnant la propriété doColumnTitles à false, la ligne de titre "build-in" n'apparait plus.
Dans cette configuration le titre est à l'initiative du programmeur...

Cependant, il semble plus sage de profiter des capacités offertes par ce composant:

Code:

---

TVLE.TitleCaptions.Strings[0]:='Entête 1ère colonne';

---

L'auteur à écrit donc écrit une boucle qui commence par la fin via un while (l'effacement d'une liste se fait souvent à l'envers pour éviter le chevauchement d'index et pour réduire les move dans le tableau de pointeur), mais cela peut se faire plus simplement avec un for

// Suppression de toutes les lignes

Code:

---

1 2	for i := TVLE.RowCount - 1 downto 1 do // 1 ou 0 selon les Titres TVLE.DeleteRow(i);

---

sinon le TValueListStrings.Clear(), libère ses objets internes et efface la liste ...

Citation:

---

Envoyé par ShaiLeTroll

L'auteur à écrit donc écrit une boucle qui commence par la fin via un while (l'effacement d'une liste se fait souvent à l'envers pour éviter le chevauchement d'index et pour réduire les move dans le tableau de pointeur), mais cela peut se faire plus simplement avec un for
...

---

+1 pour shai