Supprimer espace

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.

Vous indiquez le chemin à suivre, mais vous n'écrivez pas la fonction.

Cordialement Uly