Discussion :

[MaTHieU_]

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

[OutOfRange]

Salut

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

L'aide D6 dit :

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

[MaTHieU_]

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 :

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

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

[Graffito]

Bonjour,

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

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

Code :

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

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

[MaTHieU_]

Bonjour,

OK!

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

Merci,
Mathieu

[aityahia]

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.

[MaTHieU_]

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