Bonjour j'essaie de faire un programme qui supprime les espaces en trop dans une chaine de caractère j'ai donc fait l'algo suivant :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
pour i<-1 à longueur(chaine) faire
      si (chaine[i]=' ') et (chaine[i+1]=' ') alors
        chaine[i]<-chaine[i+1]
      fin si
fin pour


a partir de cela j'ai fait le programme en pascal pour delphi :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
      for i:=1 to length(chaine) do
         begin
         if ((chaine[i]=' ') and (chaine[i+1])) then
             begin
                 chaine[i]:= chaine[i+1];
             end;
         end;

mais mon probleme est que ce code ne fonctionne pas et je ne sais pas pourquoi est ce que vous pourriez m'expliquer quelle erreur j'ai fait dans mon algo ?