Remplacer des caractères d'une chaine
Soyez le premier à donner votre avis sur cette source.
Snippet vu 21 298 fois - Téléchargée 8 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
- Remplacer des caractères d'une chaine
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Vba remplacer caractère - Forum Visual Basic
- Python extraire une partie d'une chaine de caractère - Forum Python
- Inverser une chaine de caractere en c - Forum C++ & C++ .NET
- Parcourir une chaine de caractère java - Forum Java
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.