Discussion :

[informatik2010]

Bonjour tout le monde,
je dispose d'un edit1 et d'un button1.
dans le champ edit1 on doit saisir un nombre , et lorsqu'on clique sur le button1 on déclanche une procédure qui a comme paramètre la valeur numérique de edit1.
est-ce qu'il existe une fonction qui me permet de savoir si la valeur contenu dans dans le edit1 est numérique ou non (car dans le cas ou c'est on la procédure Tbuttonclick doit retourner un showmessage ('erreur- valeur non numérique ) par exemple.
merci d'avance.

[Cl@udius]

Salut

Tu disposes pour cela des fonctions TryStrToXXX (TryStrToInt, TryStrToInt64, TryStrToFloat, etc...) qui convertissent la chaine de caractères et renvoie un boolean t'informant du succès ou non de la conversion.

@+ Claudius

[popo]

Sinon tu peux utiliser un SpinEdit ou bien filtrer les caractères pour n'accepter que des chiffres

[informatik2010]

Salut

Tu disposes pour cela des fonctions TryStrToXXX (TryStrToInt, TryStrToInt64, TryStrToFloat, etc...) qui convertissent la chaine de caractères et renvoie un boolean t'informant du succès ou non de la conversion.

@+ Claudius

le trystrtoxxx est assez interessant mais moi j'utilise dephi 5.
cette fonction je ne la trouve pas

[Dr.Who]

Code :

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

1
2
3
4
procedure TForm1.Form1Create(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);
end;

[Cl@udius]

Re,

Avec Delphi 5 tu dois disposer de la méthode Val

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  MyValue, E: Integer;
begin
  Val(Edit1.Text, MyValue, E);
  if E <> 0 then
    ShowMessage('Valeur incorrecte.')
  else
  begin
    // ... la suite
  end;
end;

Sinon tu gères le StrToInt dans un bloc try except end.

@+ Claudius

[Dr.Who]

Re,

Avec Delphi 5 tu dois disposer de la méthode Val

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  MyValue, E: Integer;
begin
  Val(Edit1.Text, MyValue, E);
  if E <> 0 then
    ShowMessage('Valeur incorrecte.')
  else
  begin
    // ... la suite
  end;
end;

Sinon tu gères le StrToInt dans un bloc try except end.

@+ Claudius

ou encore

Code :

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

1
2
3
4
5
6
function TryStrToInt(const S: string; var V: LongInt): boolean;
var E: LongInt;
begin
  Val(S, V, E);
  result := E = 0;
end;

[Cl@udius]

@informatik2010

Tu as donc le choix, enfin si tu dois traiter une valeur entière. (Avec une préférence pour SetWindowLong).

[informatik2010]

Re,

Avec Delphi 5 tu dois disposer de la méthode Val

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  MyValue, E: Integer;
begin
  Val(Edit1.Text, MyValue, E);
  if E <> 0 then
    ShowMessage('Valeur incorrecte.')
  else
  begin
    // ... la suite
  end;
end;

Sinon tu gères le StrToInt dans un bloc try except end.

@+ Claudius

j'ai opté en fin du compte pour la fonction VAL.
mais pour un Extended au lieu de integer pour Myvalue ,car je traite et des entiers et des réels.

merci tout le monde et surtout Claudius

[Montor]

Sinon tu gères le StrToInt dans un bloc try except end.

SrtTointDef