Remplacer des caractères d'une chaine
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
- Remplacer des caractères d'une chaine
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Extraction d'une partie d'une chaine dans une chaine - Forum Python
- Chaine de caractère ✓ - Forum Python
- Vba remplacer caractère spéciaux - Forum Visual Basic
- Vba remplacer caractère - Forum Visual Basic
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.