Discussion :

[TOH B. GRIFFITH]

Bonjour à tous,
j'aimerais empêcher la saisie de caractères autres que les chiffres dansune zone de texte(Edit). j'ai beau utilisé la fonction ord ou le cast Byte, je n'ai pas le résultat escompté. j'ai comme message "type de données incompatible"
Quelqu'un n'aurait pas un bout de code qui pourrais m'aider à surmonter cette difficulté.
Merci d'avance

[ShaiLeTroll]

Pour les vieux Delphi : Comment ne rentrer que des chiffres dans un TEdit ?

Pour les versions plus récente (2005+) : Documentation Embarcadero - TEdit.NumbersOnly

[e-ric]

Salut

Ce serait sans doute plus facile de répondre si tu nous montrais ton code

@+

[edam]

composant spinedit

[edam]

Pour les versions plus récente (2005+) : Documentation Embarcadero - TEdit.NumbersOnly

merci, sa je ne le savais pas

[Stevens.Georges]

Bonjour,

A toutes fins utiles je te donne le code que j'utilise qui est un peu plus simple et me donne sarisfaction.

Code :

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

1
2
3
4
5
 
function ConverStrToInt(TEMP:string;var Flag:Boolean):integer;
if (TEMP<>'') and TEMP<>'-') then
  try  
Result:=StrToInt(TEMP)

[Stevens.Georges]

Je complète ma réponse ci-dessus non terminée stupidement.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
function ConverStrToInt(TEMP:string;var Flag:Boolean):integer;
begin
   if (TEMP<>'') and (TEMP<>'-') then
      try
         Result:=StrToInt(TEMP);
      except
      on EConvertError do
         begin
         MessageDlg('Expression non valide'+#10+#10+
         'Seuls les chiffres sont admis.',mtError,[mbOK],0);
         Flag:=True;
         end;
      end
   else
   Result:=0;
end;
 
function ConverStrToFlo(TEMP:string;var Flag:Boolean):single;
begin
   Flag:=False;
   if (TEMP<>'') and (TEMP<>'-') then
     begin
       try
       Flag:=False;
       Result:=StrToFloat(TEMP);
       except
       if (FDecSep=False) and (Pos('.',TEMP)<>0) then
         MessageDlg('Windows est configuré sur votre PC avec la virgule'+#10+
         'comme séparateur décimal.'+#10+#10+
         'Vous devez donc utiliser ce caractère à la place du point.',
         mtError,[mbOK],0)
       else if (FDecSep=True) and (Pos(',',TEMP)<>0) then
         MessageDlg('Windows est configuré sur votre PC avec le point'+#10+
         'comme séparateur décimal.'+#10+#10+
         'Vous devez donc utiliser ce caractère à la place de la virgule.',
         mtError,[mbOK],0)
       else
         MessageDlg('Expression non valide.'+#10+#10+
         'Seuls les chiffres et si nécessaire'+#10+
         'le signe - en tête sont acceptés.',mtError,[mbOK],0);
       Flag:=True;
       end;
     end
   else Result:=0;
end;
 
//Procedures d'appel
procedure Form.EditIntChange(Sender:TObject);//pour un entier.
var Resultat,TempI:integer;
     Flag:Boolean;
begin
TempI:=ConverStrToInt(EditInt.Text,Flag);
if Flag=True then
  begin
    Flag:=False;EditInt.SetFocus;Exit;
  end;
else Resultat:=TempI;
end;
 
procedure Form.EditFloatChange(Sender:TObject);//pour un flottant
var Resultat,TempS:single;
begin
TempS:=ConverStrToFlo(EditFloat.Text,Flag);
if Flag=True then
  begin
    Flag:=False;EditFloat.SetFocus;Exit;
  end
else Resultat:=TempS;
end;

[chrisgood]

Sinon, on peut utiliser l'évènement OnKeyPress du TEdit:

Pour les anciennes version de Delphi:

Code :

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

1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Ord(Key)>=32) and not(Key in ['0'..'9']) then
    Key := #7;
end;

A partir des versions Unicode de Delphi:

Code :

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

1
2
3
4
5
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Ord(Key)>=32) and not(CharInSet(Key, ['0'..'9'])) then
    Key := #7;
end;

Pour info, "Key := #7" provoque un son windows (ding)

Pour aller un peu plus loin, pour les Float par exemple, on peut transformer automatiquement le point ou la virgule en format valide de Windows:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Ord(Key)>=32) and not(CharInSet(Key, ['0'..'9', ',', '.'])) then
    Key := #7;
  if (Key=',') or (Key='.') then
    Key := FormatSettings.DecimalSeparator;
end;

[chrisgood]

Je complète ma réponse ci-dessus non terminée stupidement.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
function ConverStrToInt(TEMP:string;var Flag:Boolean):integer;
begin
   if (TEMP<>'') and (TEMP<>'-') then
      try
         Result:=StrToInt(TEMP);
      except
      on EConvertError do
         begin
         MessageDlg('Expression non valide'+#10+#10+
         'Seuls les chiffres sont admis.',mtError,[mbOK],0);
         Flag:=True;
         end;
      end
   else
   Result:=0;
end;
 
function ConverStrToFlo(TEMP:string;var Flag:Boolean):single;
begin
   Flag:=False;
   if (TEMP<>'') and (TEMP<>'-') then
     begin
       try
       Flag:=False;
       Result:=StrToFloat(TEMP);
       except
       if (FDecSep=False) and (Pos('.',TEMP)<>0) then
         MessageDlg('Windows est configuré sur votre PC avec la virgule'+#10+
         'comme séparateur décimal.'+#10+#10+
         'Vous devez donc utiliser ce caractère à la place du point.',
         mtError,[mbOK],0)
       else if (FDecSep=True) and (Pos(',',TEMP)<>0) then
         MessageDlg('Windows est configuré sur votre PC avec le point'+#10+
         'comme séparateur décimal.'+#10+#10+
         'Vous devez donc utiliser ce caractère à la place de la virgule.',
         mtError,[mbOK],0)
       else
         MessageDlg('Expression non valide.'+#10+#10+
         'Seuls les chiffres et si nécessaire'+#10+
         'le signe - en tête sont acceptés.',mtError,[mbOK],0);
       Flag:=True;
       end;
     end
   else Result:=0;
end;
 
//Procedures d'appel
procedure Form.EditIntChange(Sender:TObject);//pour un entier.
var Resultat,TempI:integer;
     Flag:Boolean;
begin
TempI:=ConverStrToInt(EditInt.Text,Flag);
if Flag=True then
  begin
    Flag:=False;EditInt.SetFocus;Exit;
  end;
else Resultat:=TempI;
end;
 
procedure Form.EditFloatChange(Sender:TObject);//pour un flottant
var Resultat,TempS:single;
begin
TempS:=ConverStrToFlo(EditFloat.Text,Flag);
if Flag=True then
  begin
    Flag:=False;EditFloat.SetFocus;Exit;
  end
else Resultat:=TempS;
end;

Pour éviter les try..except, on peut utiliser les fonctions TryStrToInt pour la conversion des entiers, et TryStrToFloat pour les Float.
Ces fonctions renvoient faux si la conversion est impossible

[tarekk73]

bon jour

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
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 
 var a :string ;
begin
 if ord(key)>31 then    // si nés pas une touche comme esc, retour, sup ,...
try
a := tedit(sender).Text; // a :=  l'ancien valeur de tedit.text 
Insert(key,a,tedit(sender).SelStart); //inserer key dans le texte 'A' dans la position de cursseur
strtofloat( a); //convertire A en real   
// strtoint (a);  ou en entier 
except
abort; // si la conversation 'strtofloat( a);' na pas réussi -- > annuler la saisie de tedit  
 
end;
  end;