Discussion :

[michel71]

Bonjour,

je voudrais vérifier les caractères suivants 0 à 9, le point "." et la virgule "," dans une boucle comme ceci

Code :

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

1
2
3
4
5
6
 
mot:=Edit2.Text;
          for i:=1 to length(mot) do
            begin
               if (mot[i]<>('^0-9')) and (mot<>'.') and (mot<>',') then ShowMessage('NON !!');
            end;

mon petit bout de code ne marche pas, je suppose que ma ligne "if (mot[i]<>('^0-9')) and (mot<>'.') and (mot<>',')" est mal écrite mais je n'arrive pas à trouver la bonne formule

merci

[ShaiLeTroll]

il faut le faire avec un TSysCharSet

Code :

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

 if not(mot[i] in ['0'..'9', '.', ',']) then

[michel71]

merci