StringReplace sur TStrings [Résolu]

Signaler
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
-
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005
-
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

3 réponses

Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
5
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.
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
5
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.
Messages postés
78
Date d'inscription
jeudi 17 février 2005
Statut
Membre
Dernière intervention
26 décembre 2005

Merci ca fonctionne