Discussion :

[21247692]

bonjour

j'ai un probleme d'exception et j'arrive de le réglé
voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
x:integer;
begin
try
x:=strtoint(edit1.Text);
except
on e.Input(edit1.Text)
  do begin
       showmessage('erreur');
      end;
end;

il m'affiche une erreur la voila ( identificateur non declaré 'e' )

je vous remerci d'avance

[gduo200]

Si c'est pour éviter l'erreur de conversion Chaine - > entier, il y a les 3 évenement OnKey .... du TEdit qui te permettent de savoir ce qui est entré par l'utilisateur et ce que tu veux en garder car. par car.

Mieux que cela , il y a TEditMask.

Quand à l'exception, effectivement on se demande ce qu'est "e" ?

[Cl@udius]

Salut

Visiblement tu souhaites intercepter l'erreur de conversion à l'aide d'except mais ton code est plutôt mal construit (sans vouloir te vexer )

Un p'tit exemple de contrôle d'erreur:

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
 
var
  x, y, z: Integer;
begin
  try
    x := StrToInt(Edit1.Text);
    y := StrToInt(Edit2.Text);
 
    z := x div y;
    ShowMessage('x div y = ' + IntToStr(z));
    // ...
  except
    on E: EConvertError do
      ShowMessage('Les valeurs saisies doivent être entières.' + #13#10 +
                  E.Message);
    on E: EDivByZero do
      ShowMessage('La valeur de ''Edit2'' doit être différente de 0');
  end;

Je te conseille de consulter cette rubrique dans les cours de ce site.

@+ Claudius.

[philnext]

pour ton code autant faire :

Code :

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

1
2
3
4
5
6
7
8
9
var
  x:integer;
begin
  try
    x:=strtoint(edit1.Text);
  except
    showmessage('erreur');
  end;
end;

sinon moi j'aime bien

Code :

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

1
2
3
4
5
6
7
var
  x:integer;
begin
  if TryStrToInt(Edit1.Text,x)=false then
    ShowMessage('erreur');
end;

[21247692]

bonjour
comment géré les exceptions des constraints
j'ai utilisé les constraints et je veux afficher tous les exception un par un

1) le code est unique
2) le nom est entre ('djerdjar' et 'laaribi')
3) la date
voila mon code source

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
25
26
 
var
 x:tdatetime;
 a:string;
 
begin
 try
  x:=strtodate(editdate.text);
  a:=editnom.text;
 
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add(10,'djerdj','yacine',198i-12-04',.......);
  form1.ADOQuery1.ExecSQL;
 except
  on e:exception do 
   begin
   showmessage('le nom est incorrect');
   break;
  end;
 on e:exception do 
  begin
   showmessage('la date est incorrect');
   break;
  end;
end;

dans ce cas le nom et la date sont incorrect,comment afficher ces exceptions un par un

je vous remerci d'avance

[Laurent Dardenne]

21247692 merci d'utiliser les balises code. Ton code sera ainsi plus lisible et gardera son indentation.