Discussion :

[sondo]

Bonjour,

Je rencintre ce problème que je souhaite poser; voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.TarifEditKeyPress(Sender: TObject; var Key: Char);
var Tarif :Integer;
begin
  if (key = #13) then
   begin
     tarif := StrToInt(TarifEdit.text);
     if not (Tarif in[15013, 15022, 15032]) then
        begin
          MessageDlg('Code tarif érroné !', mtError, [mbOK], 0);
          TarifEdit.SelectAll;
          key := #0;
        end;
    end;
end;

Les éléments à vérifier sont de 5 chiffres tel que 15013, 15022, 15032... Je remarque que si les éléments de in[...] dépasse 4 chiffres il y'a une exception :' L'expression constante dépasse les limites de sous-étendue'.
Comment faire de tel sorte que les éléments à vérifier dépasse 5 chiffres.
Merci d'avance pour toutes aides.