Discussion :

[logiciel_const]

bonjour,
j'ai un formulaire :
nom
prenom
...
j'ai une question toute bete :comment vérifier le type d'un edit s'il est de type string:par exemple lorsque l'utilisateur entre une entier dans le champs nom ,ceci doit affiche une erreur et pour se faire on doit verifier le type du texte saisi s'il est string ou non?.
merci

[ero-sennin]

Salut,

Ce que l'on peut faire, c'est directement filtrer le contenu du TEdit avec l'événement OnKeyPress de celui-ci.

Voici un code qui n'autorise pas les nombres, les virgules et points et les espaces :

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 ((Key = '.') or (Key = ',')) then
    Key:=DecimalSeparator;
  if Key in ['0'..'9',DecimalSeparator,Chr(VK_SPACE)] then
    Key:=#0;
end;

J'espère que ça répondra à ta question
A+

[logiciel_const]

merci beaucoup ero-sennin
votre code est efficace

[Marco88]

Question bête...
Et si le champ à vérifier doit contenir un entier...?

P.S: comment on note VK-Space sur Lazarus?