SAISIR QUE DES ENTIERS DANS UN EDITEUR DE TEXT

Bacterius
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
- 31 mai 2009 à 19:55
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
- 1 juin 2009 à 00:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/50095-saisir-que-des-entiers-dans-un-editeur-de-text

Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
18
1 juin 2009 à 00:56
Par exemple, un TEdit qui n'accepte que des entiers ou des flottants, positifs ou négatifs (à améliorer):

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9','.',#8,'+','-']) then Key := #0;
if pos('.',(Sender as TEdit).Text) = 0 then begin
if length((Sender as TEdit).Text) <> 0
then if not(Key in ['0'..'9','.',#8,'+','-']) then Key := #0
else if not(Key in ['0'..'9','.',#8]) then Key := #0; end
else begin
if length((Sender as TEdit).Text) <> 0
then if not(Key in ['0'..'9',#8,'+','-']) then Key := #0
else if not(Key in ['0'..'9',#8]) then Key := #0;
end;
end;
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
18
1 juin 2009 à 00:39
Il y a déjà celui de f0xi. Ca risque de ne pas passer. :)

Il faudrait surtout penser à apporter quelque chose de nouveau.
Et, dans le genre, ce n'est pas impossible...
PCPT
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
49
1 juin 2009 à 00:26
bonjour,

bout de code = snippet
à poster ici : http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx
(même login/pass)

merci
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
18
31 mai 2009 à 20:15
Les nombres négatifs, ils puent ! Beuaark !

Restons positifs !
Nicolas___
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
31 mai 2009 à 20:05
La palme , la palme , la palme ...
Afficher les 6 commentaires