Discussion :

[SkyWalker]

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 :

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
  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

[Clorish]

Code :

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

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 :

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

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 :

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

TVLE.DeleteRow(1)

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

Code :

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

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 :

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

Tot := Tot-1;

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

[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...

Le code suivant marche :

Code :

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

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;

[aityahia]

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 :

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

TVLE.Strings.Clear;

[Clorish]

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

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

Code :

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

TVLE.Strings.Clear;

Bien vu

[qi130]

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

Code :

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

TVLE.Strings.Clear;

car la ligne de titre disparait aussi...

Code :

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

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

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 ?

[aityahia]

car la ligne de titre disparait aussi...

est vous sur ?

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

[qi130]

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 :

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

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

[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

// Suppression de toutes les lignes

Code :

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

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 ...

[aityahia]

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