Discussion :

[muquet]

Bonjour.
j'au un string qui ne contient théoriquement que des chiffres mais l'utilisateur peut en fait y ecrire ce qu'il veut.
Comment fait on pour tester proprement la présece de chiffres ? (sans try excet sur un IntToStr).

merci

[jenesuispasunrobot]

pas vraiment de choix:

soit tu contrôles que l'utilisateur ne puisse rentrer que des chiffres dans cette chaîne, soit tu te fais une fonction personalisée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function IsNumeric(S: string): boolean;
var
  i: integer;
begin
  result := true;
  for i := 1 to Length(S) do begin
    if S[i] not in ['0'..'9'] then begin // '0'..'9' à vérifier
      result := false;
      Exit;
    end;
  end;
end;

[muquet]

Et on ne peut pas spécifier a un Tedit qu'il ne doit recevoir que des chiffres ?? ou y a t il un autre composant pour ca ?

[Rayek]

Dans le onKeypress de ton Tedit tu mets ca :

Code :

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

1
2
3
4
 
if Key <> #8 then // pour que la touche delete fonctionne
  if (Key < '0') or (Key > '9') then // limite la saisie aux chiffres
    Key := #0;

Avec ce code tu ne peux plus saisir autre chose que des nombres

[muquet]

merci a tous