Discussion :

[Duan]

Avec le code suivant, je peux permettre seulement les chiffres de 0 à 9 ainsi que la touche Retour et Efface .

Code :

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

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

Jusque l'à, aucun problème, toutes les touches d'écriture du clavier sont bloquées sauf le . qui me donne comme Erreur : 123. n'est pas une valeur entière correcte.
Je dois préciser que la valeur est changée en Integer pour fin de calcul. Je veux toujours des nombres entiers, alors pas de . si possible.

Merci de votre aide.

Duan

[banban54]

bonjour
Si on peut interdire la saisie du séparateur décimal, autant convertir le résultat en entier.

Code :

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

variable := trunc(StrToFloat(Edit1.Text));

[édit] sinon ceci fonctionne

Code :

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

1
2
  if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)])
    or(key = DecimalSeparator) then Key := #0 ;

à+

[Paul TOTH]

non le problème est tout bête

Code :

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

1
2
 
 chr(VK_DELETE)  = '.'

c'est dans le Keydown qu'on peut tester VK_DELETE, pas dans le Keypress

attention cependant, un copier/coller dans le TEdit pourra introduire des caractères invalides malgré tout.

[banban54]

bonjour

@ Paul TOTH
le code que j'ai donné plus haut (en édit) fonctionne correctement dans le KeyPress!

et pour empecher le copier/coller sur un edit voir ici
à+

[Duan]

@ banban54 : j'avais toujours une erreur avec ton code, probablement à cause du décimalséparator au Canada...
@ Paul Thot : Je ne sais pas comment gérer ce OnKeyDown.

J'ai résolu mon problème dans le onChange du Édit de la facon suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  var
 
     long:Byte;
  begin
     long:=length(lundipmp.text);
     if copy(lundipmp.text,long,1)='.' then
     begin
       LundiPmp.Text:=copy(LundiPmp.Text,0,long-1);
       exit;
     end;

Le . est ainsi détruit avant la conversion en integer. Je reviens alors à mon TEdit mais au début de celui-ci. Dans un autre post, je vais demander s'il est possible de positionner le curseur à la fin des nombres saisis ?

Merci à vous deux de votre aide et je marque ce post comme résolu

Duan