StringReplace ?
finipe
Messages postés
57
Date d'inscription
jeudi 12 octobre 2000
Statut
Membre
Dernière intervention
22 mars 2004
-
10 févr. 2002 à 19:41
finipe Messages postés 57 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 22 mars 2004 - 11 févr. 2002 à 22:22
finipe Messages postés 57 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 22 mars 2004 - 11 févr. 2002 à 22:22
A voir également:
- Delphi stringreplace
- Stringreplace delphi - Meilleures réponses
- Delphi string replace - Meilleures réponses
- StringReplace sur TStrings ✓ - Forum Delphi / Pascal
- Remplacer un caractère dans une chaîne ✓ - Forum Delphi / Pascal
- Remplacer un caractère par un autre - Forum Delphi / Pascal
- Stringreplace delphi ✓ - Forum Delphi / Pascal
- Delphi format - Conseils pratiques -Delphi
2 réponses
fabiin
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
11 févr. 2002 à 00:57
11 févr. 2002 à 00:57
function Replace(sData: String; sSubstring: String; sNewsubstring: string): String;
var pos1:integer;
s2,res:string;
begin
s2:=sData;
pos1:=pos(sSubstring,s2);
res:='';
while (pos1<>0) do
begin
res:=res+copy(s2,1,pos1-1)+sNewsubstring;
s2:=copy(s2,pos1+length(sSubstring),length(s2)+1-(pos1+length(sSubstring))); //le fait sauf au dernier passage
pos1:=pos(sSubstring,s2);
end;
res:=res+s2;
Result:=res;
end;
LaString := Replace(LaString,'.',',')
@+
Fabs 8-)
var pos1:integer;
s2,res:string;
begin
s2:=sData;
pos1:=pos(sSubstring,s2);
res:='';
while (pos1<>0) do
begin
res:=res+copy(s2,1,pos1-1)+sNewsubstring;
s2:=copy(s2,pos1+length(sSubstring),length(s2)+1-(pos1+length(sSubstring))); //le fait sauf au dernier passage
pos1:=pos(sSubstring,s2);
end;
res:=res+s2;
Result:=res;
end;
LaString := Replace(LaString,'.',',')
@+
Fabs 8-)
