Discussion :

[Droïde Système7]

Bonjour

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 :

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

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.

[Aka Guymelef]

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 :

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

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;

[sapin]

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

[Aka Guymelef]

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.

[sapin]

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

[Droïde Système7]

Code :

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

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 ?

[Aka Guymelef]

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.

[Droïde Système7]

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



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


.

[edam]

Code :

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

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;

[Droïde Système7]

Bonsoir

Bravo les copains

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

Code :

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

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

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 !

à vous les copains