StringReplace sur TStrings [Résolu]

Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
- - Dernière réponse : sosodef88
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
- 21 févr. 2005 à 17:05
comment utiliser la fonction StringReplace sur TStrings ?

les TStrings contiènnes plusieurs ligne de caractère et StringReplace est prévu seulement pour les simple String

voila j'espère que j'ai été claire. Merci pour vos réponses
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
4
3
Merci
Re,



Sinon ca devrait marcher en utilisant directement la propriété text du tstrings :


//On remplace / par \

MyList.Text := StringReplace(MyList.Text,'/','\',[rfReplaceAll]);

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 222 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
4
0
Merci
Hello,



Essaye avec cela :



procedure StringsReplace(OldText,NewText : String; var MyList : TStrings);



var

I : Integer;



begin




For I:=0 to MyList.Count-1 do

//On remplace OldText par NewText

MyList.Strings[I] := StringReplace(MyList.Strings[I],OldText,NewText,[rfReplaceAll]);



end;


Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Commenter la réponse de jmp77
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
0
Merci
Merci ca fonctionne
Commenter la réponse de sosodef88