Bonjour,
Je rencintre ce problème que je souhaite poser; voici mon code :
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'.
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;
Comment faire de tel sorte que les éléments à vérifier dépasse 5 chiffres.
Merci d'avance pour toutes aides.
Partager