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.

[Cl@udius]

Salut

Les valeurs de ton ensemble ne peuvent dépasser la valeur de 255.

Le type de base ne peut avoir plus de 256 valeurs possibles et leur rang doit être compris entre 0 et 255

Utilise un if ou un case.

[Edit] erroné au lieu d'érroné

@+ Claudius

[Andnotor]

Ne serait-il pas plus simple de remplacer l'edit par un combobox ne proposant que les trois tarifs admissibles ?

[Cl@udius]

Ne serait-il pas plus simple de remplacer l'edit par un combobox ne proposant que les trois tarifs admissibles ?

+1

Ce qui évitera quelques éventuelles soucis d'exécution avec StrToInt.