Discussion :

[yinyann86]

j'aimerais savoir comment je fais mettons que l'utilisateur marque la lattere a minuscule ou un 1 ca marque un erreur , les lesttres majuscule A à Z sont acceptées seulement comment faire?

[denokan]

quelque chose du style

Code :

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

if not (lettre in ['A'..'Z']) then // erreur

[Delphi-ne]

Petite précision sur la réponse de DENOKAN ce code est à placer dans l'évènement KeyPress du champ de saisie :

Personnellement j'ai un code qui ressemble à ceci

Code :

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

1
2
3
4
5
procedure ed_SaisieKeyPress(Sender: TObject;
  var Key: Char);
begin
If Pos(Key, '0123456789.' + Chr(8)) = 0 Then Key := Chr(0);
End;