Discussion :

[sky88]

Bonjour tt le monde

comment on peux vérifier si le texte écrit dans TEdit est nombre soit qu'il soit réel ou non positif ou négatif avec virgule ou non


merci

[Pyra]

Code :

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

1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if not(Key in ['0'..'9','-',',']) then Key := #0; 
end;

Ca ne vérifie que lors de la pression d'une touche et peut donc être contourné, mais au moins tu as l'idée rien ne t'empêche de boucler sur le nombre lors de la validation des données et d'appliquer ce genre de vérifications.

[Aos]

Tu peux mettre son code de sly88 sur la propriété onChange de ton Tedit.

[Issam]

ou utiliser un maskedit

[Just-Soft]

Salut;

les deux réponses sont bonne, mais une simple recherche pouvait te guider sur des liens qui ont déjà traités ce problème.

En fin ne pas oublier le tag résolu.