Discussion :

[Petrucci]

Bonjour à tous,

Je cherche à supprimer, à l'aide d'une fonction, la ponctuation d'une chaîne (string en l'occurence ).

Mais voilà, un certain problème de "Débordement de Pile" se pose ... et je ne vois absolument pas pourquoi !!

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function Ponctuation(tel:string):string;
   Var
   j:byte;
 
    begin
 
    for j:=1 to length(tel)do
       begin
 
       if (tel[j] in [#65..#90,#97..#255])then
 
        begin
           delete (tel,j,1);
        end;
 
       end;
 
    length(Ponctuation(tel)) := length(tel);
   end;

Merci d'avance de vos réponses !!!

[Loceka]

Eh bien peut-être parce que tu réduis la longueur de ta chaîne alors que tu es en train de la parcourir...

[Petrucci]

lol c'est très stupide en effet ...
dans ce cas il me faut recommencer tout mon raisonnement lol ... je cherche , mais je doute d'avoir l'expérience nécéssaire pour faire ça autrement lol ...
Juste pour précision, je suis un spécialiste des fautes débiles
à bon entendeur ...

[thewho]

Bonjour,

Le raisonnement semble bon, c'est la réalisation qui ne va pas:

Il suffit de remplacer la boucle for par une boucle while

en effet, Pascal gère les boucles for de manière un peu spéciale:

par exemple, avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
for i := 1 to expression do
....

dans ce cas, la valeur de expression est calculée à l'entrée de la boucle, et n'est plus jamais vérifiée !, même on on la modifie explicitement dans la boucle.
C'est un des pièges du Pascal dans lequel on tombe assez régulièrement au début.

alors qu'avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
i=1;
while i <= expression do
....

expression est réévaluée à chaque tour de boucle.

[Petrucci]

Merci à toi, il est vrai que j'y ai pensé, mais je n'aurais jamai pensé que la différence entre les deux était si grande ...

Merci beaucoup !!
--> Résolu.