Discussion :

[A0080]

Bonjour à vous. Voilà ma question : je dois rentrer des chiffres dans un Tedit. Néanmoins je dois créer une procédure qui si par hasard l'utilisateur rentre autre chose que des chiffres alors le Tbutton associé à une autre procédure doit se griser et je sais pas comment faire cela du moins la première partie. Merci d'avance pour vos réponses. ++

[Rayek]

Pourquoi ne pas limiter directement la saisie de numériques, ca serait plus simple

http://delphi.developpez.com/faq/?pa...propri#numbers

[Cl@udius]

Salut bienvenue sur Developpez.com

La solution la plus simple serait de limiter la saisie dans ton Edit aux chiffres.
Tu as une QR dans la FAQ.

[edit] Grillé une fois de plus par Malatar [/edit]

@+ Claudius

[care]

Code :

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

1
2
3
4
5
6
7
if edit1.Text > 'a' then
begin
Button1.Enabled := False
end
else
Button1.Enabled := True
end;

tien ce ptit truc cert un peut barbar a mon avis mais bon
parcontre tu peut quand même mettre un seul "a" mais pas 2
mais il doit y avoir un autre truc ^^

[jambonstar]

Sinon dans la palette de composants "Exemples" tu as un joli spinedit qui le fera tout seul.

[Gaadek]

if edit1.Text > 'a' then
begin
Button1.Enabled := False
end
else
Button1.Enabled := True
end;

tien ce ptit truc cert un peut barbar a mon avis mais bon
parcontre tu peut quand même mettre un seul "a" mais pas 2
mais il doit y avoir un autre truc ^^

C'est normal, tu fais une comparaison de chaine... comme 'a' = 'a', c'est normal que tu puisses entrer un caractère...

Au pire, il faudrait comparer le champ du TEdit, caractère par caractère, et vérifier que ceux ci sont dans l'ensemble [0..9], un peu comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
 
ContenuEditOK := TRUE;
 
// Teste un par un les caractères de la chaine du TEdit
for i:=1 to Lenght(TEdit.Text) do
  if (TEdit.Text[i] not in [0..9]) then ContenuEditOK := FALSE;
 
// Grise ou dégrise le bouton en fonction du résultat...
Button.Enabled := ContenuEditOK;

Mais il est évident que le mieux reste encore de limiter le contenu du TEdit dès le départ!

[A0080]

Merci à vous quatre les gars par contre Care ton truc ne marche pas peut-être parce que mon code n'est pas complémentaire au tien il faudrait que mette une action genre "OnKeyPress" comme dans la FAQ que je suis entrain de lire.
Je regarde ton truc Jambonstar merci à toi.

Edit à vous cinq désolé j'essaye la cinquieme méthode qui me parait pas mal du tout pour moi. Par contre je comprend pas trop ton "Contenu du edit OK en boolean " je rentre le code comme tu l'a marqué ou je dois faire des modifs en fonction d emon code?

[A0080]

Pour le spin edit c'est ok j'ai pas essayé m'est en effet c'est une très bonne solution. Sinon avec mon edit maintenant je ne peux rentrer que des chifrres c'est ok mais pas de signe moins or je voudrais pouvoir le faire et interdire le decimal separatoir par contre. Dans la FAQ il y a un code supplémentaire mais il est compliqué pour moi. Merci.

[care]

tu remet une autre condition en indiquant cette fois que tu peut utilisé -

et une autre condition dans laquelle tu notorise pas la le séparateur.

je pensse que c'est une solution

ps oui ma 1er hypotése était un peut fastidieuse xD

[Cl@udius]

Re,

L'exemple de la FAQ devient ceci:

Code :

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

1
2
3
4
5
6
 
procedure TMyForm.MyEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['-','0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then
    Key := #0;
end;

@+

[Rayek]

Pour le spin edit c ok j'ai pas essayé m'est en effet c'est une très bonne solution. Sinon avec mon edit maintenant je ne peux rentrer que des chifrres c'est ok mais pas de signe moins or je voudrais pouvoir le faire et interdire le decimal separatoir par contre. Dans la FAQ il y a un code supplémentaire mais i lest compliqué pour moi. Merci.

Simplement :

Code :

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

1
2
3
4
5
6
 
procedure TMyForm.MyEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', '-', Chr(VK_BACK), Chr(VK_DELETE)]) then
    Key := #0;
end;

tu remet une autre condition en indiquant cette fois que tu peut utilisé -

et une autre condition dans laquelle tu notorise pas la le séparateur.

je pensse que c'est une solution

ps oui ma 1er hypotése était un peut fastidieuse xD

Quand tu n'es pas sûr à 100% d'une réponse abstiens toi de répondre, le but est l'entraide pas d'égarer la personne
Dernier point, pensez à lire les posts précédents, surtout quand la réponse a été donnée.