Code à vérifier SVP (Oups ! résolu)

Bonjour à tous,

Quelqu'un peut-il tester ce code ?
Soit je souffre de la canicule, soit il faudra que j'ouvre un post dans les bug$.

Code:

dim n% : label Supprime_tout
list 1
for n%=1 to 5 : item_add 1,str$(n%) : next n%
button 2 : left 2,width(1)+10 : caption 2,"Supprime tout"

' vérif boucle FOR/NEXT
print_locate 5,150
for n%=1 to 5
    print : print str$(n%)
next n%
' boucle = OK
on_click 2,Supprime_tout
END

Supprime_tout:
message "List 1 contient "+str$(count(1))+" lignes"
  for n%=1 to count(1)
      item_delete 1,n%
  next n%
message "List 1 contient "+str$(count(1))+" lignes"
RETURN

A+

PS: faites aussi l'essai en remplacent la ligne 17 par

Code:

for n%=5 to count(1) step -1

Là c'est bon.

RE PS: c'est pareil avec un DLIST

Bonjour Jean Claude !

Moi je ne vois pas de bug là dedans.

1) Tu as 5 enregistrements 1 , 2 , 3 , 4 , 5

2) tu supprime le 1er (1 , 2 , 3 , 4 , 5)
   Puisque le 1er est supprimé donc les autres ont remontés d'une place. j'espere que c'est clair ?!
  il te reste les lignes 1 à 4 (2 , 3 , 4 , 5)

3) tu supprime le 2eme (2 , 3 , 4 , 5)
  Il reste le 1er . Le 3eme et le 4eme sont passés en 2eme et 3eme
   Il te reste les lignes 1 à 3 (2 , 4 , 5)

4) tu supprime le 3eme (2 , 4 , 5)
   il te reste les lignes 1 à 2 (2 , 4)

5) La suite ne supprime plus rien puisqu'il n'y plus enregistrement en 4eme et 5eme !

Voila ma façon de voir les chose !

Bonjour.

De mon expérience, j'ai appris à supprimer les items en commençant par le dernier, comme suit:

Code:

for n%=count(1) to 1 step -1

et tout rentre dans l'ordre.

@ Jean Claude,

Canicule, canicule, elle a bon dos la canicule...

Tu fais une erreur de débutant en utilisant count() celui ci est évolutif sur chaque boucle il change
puisque tu enlève une ligne.
tu finis par avoir une erreur.

c% = count%(list%)

for i%=1 to c%
   item_delete list%,1
next i%

et là tu supprimes tout 1 par 1 
mais clear list% fait le boulot direct...

Bravo Laurent et Yannick ; bien vu.
Hé Jean Claude, la canicule n'a rien à voir là-dedans!
Le bug est dans le code et non dans item_delete

Comme l'a si bien écrit Yannick, Clear est faite pour ça.
Mais si tu tiens à utiliser item_delete
Voici la solution

Code:

for n%=1 to count(1)
      item_delete 1,1
  next n%

Papydall a écrit:

Hé Jean Claude, la canicule n'a rien à voir là-dedans!

Justement si, j'ai dû prendre un coup de soleil sur les neurones ...

Yannick a écrit:

Tu fais une erreur de débutant en utilisant count() celui ci est évolutif sur chaque boucle il change
puisque tu enlève une ligne.

Ben Oui, je suis un âne. De plus j'ai déjà fait cette erreur par le passé, et je la refais encore.

Quel BOURRIN je fais !  

J'ai bien fait de soumettre le code avant de mettre Jack en colère en allant direct dans les bugs.

A+

Mon conseil à tous (mais ai-je le droit de donner des conseils ?!)
Si vous croyez avoir trouvé un bug, parlez-en dans la rubrique A l’aide ou aux bavardages avant de le poster dans  les bugs.

A bon entendeur, salut!

Oui Papydall, je l'ai proposé ici => https://panoramic.1fr1.net/t5333-proposition-a-la-communaute#65663

C'était pour les demandes d'amélioration du langage, mais ça vaut, aussi, pour les bugs. Et c'est ce que j'ai fait.

A+