Discussion :

[ornitho]

Bonsoir à tous.

Mon problème est le suivant. Je rentre une suite de chiffres dans des fenêtres Tedit que J'ai appelé PremierNombre et DeuxièmeNombre.
Pour ne pas qu'il y ai d'erreur de frappe dans ces fenêtres j'ai fait un branchement conditionnel qui m'effectue le reste du programme uniquement si se sont des chiffres qui sont entrée. En fait avec le branch. conditionnel çi dessous seul le premier caractère est testé en effet si je tape par erreur z5 ça marche, mais si je tape 5z dans l'une des deux fenêtre, le programme va s'effectuer et il y aura une erreur. Quelqu'un à t'il une idée??
En plus je trouve que ma solution n'est pas très élégante.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.CalculClick(Sender: TObject);
begin
  if((chr(304) >= PremierNombre.text) or(PremierChiffre.text <= chr(313))) and
((chr(304) >= DeuxiemeNombre.text) or (DeuxiemeChiffre.text <= chr(313))) then
  begin
    SommesDesNombres := (StrToInt(EntreeTxt2))+(StrToInt(EntreeTxt1));
    ResSomme := (IntToStr(SommesDesNombres));
    ResultSomme.Caption := ResSomme;
  end;
end;

Merci.

[Aos]

Pour eviter tout probleme, tu devrais utiliser un MaskEdit.
Si tu utilises delphi 2009, tu peux directement mettre la propriété numberonly a true.

Sinon une petite recherche sur le forum et le meme probleme a été traiter (plusieurs fois a mon avis).

http://www.developpez.net/forums/d64...contenu-tedit/

[ero-sennin]

Bosnoir,

Effectivement, il y a beaucoup plus simple
Il faut travailler au niveau de la saisie à la volée grâce à l'événement OnKeyPress.
Ainsi, on filtrera lettre par lettre et autorisera au non sa saisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.CalculClick(Sender: TObject);
begin
  ResultSomme.Caption:=IntToStr(StrToInt(PremierNombre.Text)+StrToInt(DeuxiemeChiffre.Text));
end;
 
procedure TForm1.DeuxiemeChiffreKeyPress(Sender: TObject; var Key: Char);
begin
  // Si la touche n'est pas entre 0 et 9 ni la touche retour ni la touche
 //effacer, ni le point ni la virgule, alors on annule la touche
  if(not (Key in (['0'..'9',Chr(VK_BACK),Chr(VK_DELETE),Chr(VK_RETURN)])) or (Key in ['.','.'])) then
  begin
    Key:=#0;
  end;
end;
 
procedure TForm1.PremierNombreKeyPress(Sender: TObject; var Key: Char);
begin
  // Si la touche n'est pas entre 0 et 9 ni la touche retour ni la touche
 //effacer, ni le point ni la virgule, alors on annule la touche
  if(not (Key in (['0'..'9',Chr(VK_BACK),Chr(VK_DELETE),Chr(VK_RETURN)])) or (Key in ['.','.'])) then
  begin
    Key:=#0;
  end;
end;

Tu peux consulter également l'entrée de la FAQ

Voila!
J'espère avoir éclairé ta lanterne
A+

[ornitho]

Merci beaucoup ero-sennin.

Décidément, tu es précieux!
Je penserais quand même à consulter la FAQ avant de poser une question!

Bonjour chez toi.

[ero-sennin]

Merci beaucoup ero-sennin.

Décidément, tu es précieux!

Je ne fais qu'aider quand je peux

Je penserais quand même à consulter la FAQ avant de poser une question!

En effet, la FAQ regorge d'astuces et regroupe de nombreuses questions qu'on peut se poser

Bonne soirée

[Aos]

De rien pour moi... lol

[ornitho]

De rien pour moi... lol

Désolé Aos J'avais pas vu la réponse.

Merci à toi aussi. Cela dit je sais pas encore ce que c'est que le masque d' édith. Je vérais ça plus tard.

[LeGEC]

Cela dit je sais pas encore ce que c'est que le masque d' édith.

C'est un artefact mythique.

Il paraît que celui qui le porte se met à chanter avec une voix de gramophone des chansons d'amour en restant figé sur place, les bras les long du corps, en regardant vers le plafond.

*LeGEC*

arf.... je nettoyais mon jeu de mots foireux, je ne savais pas qu'il était chargé...