Discussion :

[Siguillaume]

Bonjour à tous.
J'ai un TEdit, et je voudrais que les valeurs qui seront saisies soient de type numériques, c'est-à-dire que tous les caractères doivent être compris entre 0 et 9.
Pour cela, j'ai opté pour une vérification après la saisie. L'utilisateur finit de saisir, et je parcours les caractères pour vérifier si le code ASCII est compris entre ceux de 0 et 9.
Voici le code que j'ai fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
function verifieMontant(chaine:String):boolean;
 var i,taille:integer;
 
 begin
  taille:=length(chaine);
  while (i<=taille) and (chaine[i]>=char(48)) and (chaine[i]<=char(57)) do
   begin
    i:=i+1;
    showmessage(inttostr(i));
   end;
 
 if i>=taille then //On a parcouru toute la chaine. Et tout est correct 
  Result:=true
 else
  Result:=false;
end;

Mais ça ne marche pas. Il me semble même qu'il ne rentre dans pas le while.

Merci à tous!

[ShaiLeTroll]

Voir ICI pour un vérouillage à la saisie

i n'est pas initialisé, il peut contenir n'importe quelle valeur, il faut faire une affectation à zéro, d'ailleurs, Delphi à probablement mis un conseil de genre "La variable 'I' n'est peut-être pas initialisée"

Autre info, ces deux syntaxes donne la même chose

Code :

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

1
2
3
4
if i>=taille then //On a parcouru toute la chaine. Et tout est correct 
  Result:=true
 else
  Result:=false;

Code :

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

Result:= (i >= taille);//On a parcouru toute la chaine. Et tout est correct

Sinon, voici la version la plus consise de verifieMontant en Delphi 6

Code :

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

1
2
3
4
5
6
function verifieMontant(chaine:String):boolean;
var
  Value: Integer;
begin
  Result := TryStrToInt(chaine, Value); // ou ToFloat();
end;

[Siguillaume]

Grand Merci à toi!
Tout est ok.