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
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
https://codes-sources.commentcamarche.net/source/50095-saisir-que-des-entiers-dans-un-editeur-de-text
1 juin 2009 à 00:56
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;
1 juin 2009 à 00:39
Il faudrait surtout penser à apporter quelque chose de nouveau.
Et, dans le genre, ce n'est pas impossible...
1 juin 2009 à 00:26
bout de code = snippet
à poster ici : http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx
(même login/pass)
merci
31 mai 2009 à 20:15
Restons positifs !
31 mai 2009 à 20:05
31 mai 2009 à 19:55
existe déjà en plusieurs exemplaires sur le site.
Cordialement, Bacterius !