Bonjour,
je voudrais vérifier les caractères suivants 0 à 9, le point "." et la virgule "," dans une boucle comme ceci
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
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;
merci
Partager