Source / Exemple :
A mettre dans Type :
Function Replace(S:String;sub1:String;sub2:String):String;
Function TForm1.Replace(S:String;sub1:String;sub2:String):String;
var pos1:integer;
s2,res:String;
begin
s2:=s;
pos1:=pos(sub1,s2);
res:='';
while (pos1<>0) do
begin
res:=res+copy(s2,1,pos1-1)+sub2;
s2:=copy(s2,pos1+length(sub1),length(s2)+1-(pos1+length(sub1))); //le fait sauf au dernier passage
pos1:=pos(sub1,s2);
end;
res:=res+s2;
Result:=res;
end;
Conclusion :
utilisation :
Var MonTexte:String
MonTexte := Replace ('Ah ! Ma chaine de caractères','a','@')
MonTexte est donc égal à '@h ! M@ Ch@ine de c@r@ctères'
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.