Boucler jusqu'au bas d'un texte, même si augmentation de l'index

Bonjour :D

Je patine sur une chose toute bête :

En gros pour résumer le plus simplement ce problème, j'analyse un texte via une StringList lisant et écrivant suivant les "mots" détectés et trouvés.

Tout repose sur la bouche classique suivante

Code:

---

for i := 8 to StringList.Count + 6 do

---

Tout fonctionne correctement, sauf lorsque le programme doit ajouter des lignes supplémentaires à ce texte, alors le nombre de ligne compté en démarrant est dépassé, et l'analyse du texte ne va pas jusqu'au bout !

Quelle méthode simple et propre, adaptable à la StringList afin de permettre de tromper du nombre de ligne si ajout de celles-ci au cours du programme ?

Merci de vos conseils.

Mmmmh je ne suis pas sûr d'avoir tout compris mais si tu remplace ta boucle for par une boucle while, est-ce que tu ne résous pas le problème ?

Code:

---

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

var Cpt: Integer; begin [...] Cpt := 8 while ( Cpt <= StringList.Count + 6 ) do begin // traitement Inc( Cpt ); end;   end;

---

Un test sur le End of file n'est pas possible ?

End of File s'applique à un fichier or ici on parle de lignes ajoutées à un StringList, peut-être depuis un fichier peut-être depuis autre chose, mais ici la question porte sur le parcours d'un TStringList. ;)

Ok, c'est la partie "analyse d'un texte" qui m'a perdu. Je pensai a un fichier text (.txt)

:coucou:

Code:

---

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

var Cpt: Integer; begin [...] Cpt := 8 while ( Cpt <= StringList.Count + 6 ) do begin // traitement Inc( Cpt ); end;   end;

---

Aka Guymelef, oui bonne idée, mais ça plante un peu, histoire classique de Indice de liste hors limite...

Mais pas un autre truc au dessous en fin de traitement au lieu du code qui incrémente, afin de stopper le comptage ?

Ben c'est pas évident à dire comme ça sans ce que vous effectuez vraiment comme code mais si jamais vous faites des insertions et que vous devez "sauter des lignes", il faut probablement faire des Inc(Cpt) supplémentaires.

Hé oui, je vais approfondir en ce sens.

Si je n'y arrive pas, il faudra que je me débrouille pour donner ici une maquette fonctionnelle hyper basic du code afin de tabler sur du concret.

Merci @+ et @ suivre 8-)



Edit : Aka, ton code fonctionne parfaitement, ça boucle impec, mais ce qui coince c'est mon code intermédiare :aie: et... il y a de la ligne ! 8O


.

Code:

---

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

var Cpt: Integer; begin [...] Cpt :=0; while ( Cpt < StringList.Count ) do begin // traitement Inc( Cpt ); end;   end;

---

Bonsoir

Bravo les copains :king:

En fait puisque je dois commencer le bouclage à 8, je mettais :

Code:

---

i := 8;

---

Sur un texte de plusieurs dizaines de lignes, ça fonctionnait impec, même avec des tas d'ajouts à la volée.

Mais chose curieuse, pour un nombre < à 8 lignes ; le scan commençait tout en haut :aie:

J'ai trouvé le grain de sable : pour l'entête de page, je l'ajoutais directo via une fonction juste au dessous du StringList.LoadFromFile() via un StringList.Insert(0, GetETT);

J'ai tout simplement codé au sein de la procédure commune, à la place de l'appel dito, mais cette fois en utilisant ceci :
...
StringList.Insert(0, '...');
StringList.Insert(1, '...');
StringList.Insert(2, '...');
StringList.Insert(3, '...');
StringList.Insert(4, '...');
...

Cette fois la boucle tourne nickel chrôme, quel que soit la longueur du texte ! :yaisse2:

:merci: à vous les copains :chin: