Remplacer des caractères d'une chaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 808 fois - Téléchargée 6 fois

Contenu du snippet

procedure ReplaceChars(var Str: String; SrcChar, DestChar: Char);
Var
 P, E: PByte;
begin
 if Length(Str) = 0 then Exit; { Pas de chaîne nulle }
 P := @Str[1]; { On récupère le début de la chaîne }
 E := @Str[Length(Str)];  { La fin de la chaîne }
 Inc(E);                  { A cause du Inc(P) à la fin }
 while P <> E do
  begin
   { Si caractère correspondant, on remplace }
   if P^ = Byte(SrcChar) then P^ := Byte(DestChar);
   Inc(P);  { On passe au caractère suivant }
  end;
end;

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

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.