découpage d'une chaine et stockage dans une listbox

Marsh Posté le 18-02-2008 à 21:58:12

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 :

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 :

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.

Message édité par amteurasm le 19-02-2008 à 19:15:34

Marsh Posté le 18-02-2008 à 21:58:12

Marsh Posté le 19-02-2008 à 20:54:46

Salut

quand tu sera arrivé à la fin de ta boucle, chaine[i+1] va te donner de la choucroutte car ça correspond au caractère dans (length[chaine]+1) [:barthaliastoxik]

après je sais pas trop si on peut décaler comme ça dans une chaine enfin si c'est prudent de le faire :??:

à ta place, j'utiliserais une autre variable pour n'y stocker que les caractères de la chaine qui ne sont pas un espace: