Trouver la ligne d'un TStringList qui commence par 'cycle:' ?

Bonjour,

Savez-vous si il existe une méthode plus simple que l'utilisation d'une boucle for avec un Pos pour trouver le numero de la ligne qui commence par 'cycle:' dans un TStringList ?

J'ai essayé les méthodes Find et IndexOf mais elles ne semblent pas correspondre à ce que je veux faire...

Merci,
Mathieu

Salut

Citation:

---

Envoyé par MaTHieU_

J'ai essayé les méthodes Find et IndexOf mais elles ne semblent pas correspondre à ce que je veux faire...

---

L'aide D6 dit :

Citation:

---

Pour rechercher une chaîne dans une liste de chaînes, utilisez la méthode IndexOf. IndexOf renvoie l'indice de la première chaîne de la liste qui correspond au paramètre transmis et renvoie –1 si la chaîne transmise en paramètre n'est pas trouvée. IndexOf recherche uniquement une correspondance exacte ; si vous voulez obtenir des chaînes de correspondance partielle, vous devez parcourir la liste de chaînes.
Vous pouvez, par exemple, utiliser IndexOf pour déterminer si un nom de fichier donné se trouve dans les éléments (Items) d'une boîte liste :

if FileListBox1.Items.IndexOf('WIN.INI') > -1 ...

---

Et ça ne fonctionne pas ?
C'est sans doute la correspondance partielle qui pose pb...

Bonjour,

En effet, je cherche "cycle:" dans une chaine qui commence par mais qui est par exemple "cycle: 22".

Voici alors ce que j'ai fais :

Code:

---

1 2 3 4 5 6 7 8 9 10

// Cycle for i := 0 to MyStringList.Count-1 do begin if Pos('cycle:',MyStringList.Strings[i]) > 0 then begin MyCycle := StrToInt(Trim(Copy(MyStringList.Strings[i],8,2))); break; end; end;

---

Je ne sais pas si c'est la meilleure méthode mais ça marche ;)

Merci,
Mathieu

Bonjour,

Ca me parait la méthode normale dans ce cas.

Si le séparateur était "=" (exemple cycle=22), on aurait pu faire :

Code:

---

Mycycle:=strtoint(trim(MyStringList.values['cycle'])) ;

---

Bonjour,

OK!

Je ne connaissais pas l'astuce avec le "=" c'est bon à savoir :)

Merci,
Mathieu

je n'est pas essayer mais je pense que si vous copier le contenu de ta liste vers un Tmemo et vous utiliser la commande find.
la ligne du memo devrai corespandre a items de ta liste.
ce n'est qu'une suposition.

Bonjour,

C'est ce que j'avais envisagé d'utiliser mais comme ce traitement est réalisé dans un thread, il n'y avait pas de TMemo.Parent, c'est pourquoi je ne suis retourné vers le TStringList qui n'en a pas besoin.

Cordialement,
Mathieu