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 !!!