Supprimer espace
bonsoir
voila j'aimerai savoir quelle fonction permet de supprimer tous les espaces d'un texte .
merci
voila j'aimerai savoir quelle fonction permet de supprimer tous les espaces d'un texte .
merci
2 réponses
-
Vous indiquez le chemin à suivre, mais vous n'écrivez pas la fonction.
Cordialement Uly -
program DeleteAllSpaces;
var S, Sub_S : String;
begin
S := 'a bb ccc dddd eeeee ffffff ggggggg';
Sub_S := ' ';
while Pos(Sub_S, S) > 0 do
Delete(S, Pos(Sub_S, S), 1); { suppression des espaces }
Write(S); { La chaine S sans les espaces }
ReadLn;
{ TODO -oUser -cConsole Main : placez le code ici }
end.
