Supprimer espace

Fermé
chouchi.21 Messages postés 7 Date d'inscription samedi 10 janvier 2015 Statut Membre Dernière intervention 17 janvier 2015 - 13 janv. 2015 à 22:32
Uly410 Messages postés 319 Date d'inscription mercredi 14 janvier 2015 Statut Membre Dernière intervention 2 février 2015 - 19 janv. 2015 à 13:41
bonsoir
voila j'aimerai savoir quelle fonction permet de supprimer tous les espaces d'un texte .

merci

2 réponses

Profil bloqué
17 janv. 2015 à 21:11
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.
0
Uly410 Messages postés 319 Date d'inscription mercredi 14 janvier 2015 Statut Membre Dernière intervention 2 février 2015 24
19 janv. 2015 à 13:41
Vous indiquez le chemin à suivre, mais vous n'écrivez pas la fonction.

Cordialement Uly
0