aide avec un Tedit et strtoint

**thewormsterror** · 07/06/2006, 15h28

bonjour, un tout petit probleme:
alors dans un tedit l'utilisateur doit rentrer une annee entre 1950 et 2050 par exemple

apres avoir cliqué sur un bouton je veux que si l'utilisateur ai un message d'erreur si il a rentré qqchose qui n'est pas un nombre

c a d si l'utilisateur rentre 'hello' il lui apparait le message: veuillez rentrer une date

je sais que j'aurais deja ca:
if strtoint(tedit1.text)<1945 then ...

mais comment savoir si un strtoint est faisable

**Rayek** · 07/06/2006, 15h53

dans le onKeypress du Tedit

Code :

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

1
2
3
 
if not(Key in ['0'..'9',#8]) then
  Key := #0;

Avec ce code ca empechera la saisie autre que des chiffres.

Sinon tu peux te faire une petite procédure qui permet de tester si c'est une valeur numérique ou non

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function IsNumeric (sVal : String) : Boolean;
var
  I : integer;
begin
  Result := True;
  try
    i := strtoint(sVal);
  Except on Exception do
    Result := False; 
  end;
end;