Discussion :

[dragonno]

Bonsoir,
Quelqu'un sait pourquoi j'ai chaque fois un message d'erreur exception EConvertError ?
Normalement La premiere ligne ne devrait pas faire cette erreur mais elle le fait :/

Code :

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

1
2
3
4
5
6
7
8
9
10
Try
        x:=StrToInt(edit1.text);
Except
        on E: EConvertError do x:=5;
end;
 
if (x<=4) then
begin
  //blabla
end;

[SergioMaster]

bonjour,

Comment est déclaré x ? et pourquoi ne pas afficher le message pour avoir une piste

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Try
        x:=StrToInt(edit1.text);
Except
        on E: EConvertError do 
            begin
               Showmessage(E.message); 
               x:=5;
            end;
end;

[popo]

Si X n'est pas un Integer, cela provoquera automatiquement une erreur

[Paul TOTH]

Si X n'est pas un Integer, cela provoquera automatiquement une erreur

j'aurais plutôt dit, que si Edit1.Text ne contient pas un entier ....

[popo]

j'aurais plutôt dit, que si Edit1.Text ne contient pas un entier ....

Remarque pertinente en effet. Après relecture si X n'était pas un entier, ça ne compilerait même pas.

Ca m'apprendra à répondre avant d'voir bu mon café

[dragonno]

lol

Sinon Oui x est un integer,
et en saisissant des caractères dans edit.text ça foire.
Je comprend pas que ça foire puisque je fais un try Except pour que l'erreur ne stoppe pas le programme et me permette de gérer l'erreur.
Ce que je cherche à faire au juste c'est qu'on puisse écrire un chiffre de 1 à 4 (inclus) et pas autre chose, même pas des caractères.
Je voudrais éviter le truc du onkey_press que j'ai déjà vu dans les astuces delphi car ça va pas avec mon programme.

Rdit : Le message d'erreur je l'ai pos mis car je décrivais l'erreur dans mon post.