Problème des exceptions

bonjour

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

Code:

---

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

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" ?

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:

---

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.

pour ton code autant faire :

Code:

---

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:

---

1 2 3 4 5 6 7

var x:integer; begin if TryStrToInt(Edit1.Text,x)=false then ShowMessage('erreur'); end;

---

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:

---

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

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

Salut

Pour le contrôle de tes valeurs, tu peux le faire en amont avant d'excuter ta requête.

Pour contrôler la validité d'une date, tu peux utiliser TryStrToDate. (il existe d'autres fonctions de ce type TryStrToInt, TryStrToFloat, etc...). Voir l'aide de Delphi.

Ensuite pour exécuter ta requête, il faut que tu transmette une instruction SQL valide à ton ADOQuery (via la commande SQL.Add dans l'exemple).
La chaîne que tu donnes en exemple déclenchera naturellement une erreur.

Code:

---

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 27 28 29 30 31 32 33 34 35 36 37 38

var ID: Integer; Nom: string; DateNais: TDateTime; begin   ID := 10; // A compléter   if not TryStrToDate(EditDate.Text, DateNais) then begin ShowMessage('La date entrée est incorrecte !'); Exit; end;   Nom := EditNom.Text; if (Nom < 'djerdjar') or (Nom > 'laaribi') then begin ShowMessage('Nom incorrect !'); Exit; end;   with Form1.ADOQuery1 do begin Close; SQL.Clear; SQL.Add('INSERT INTO MA_TABLE (ID, NOM, DATE_NAIS)'); SQL.Add('VALUES( :ID, :NOM, :DATE_NAIS)'); Parameters.ParamByName('ID').Value := ID; Parameters.ParamByName('NOM').Value := Nom; Parameters.ParamByName('DATE_NAIS').Value := DateNais; try ExecSQL; except ShowMessage('Echec lors de l''insertion des données !'); end; end; end;

---

@+ Claudius

bonjour

chaque fois il affiche la meme erreur ('la date entrée est incorrect') meme si la date est correcte
normalement si le nom est incorrecte il m'affiche ('le nom est ncorrect') et aprés si la date est incorrecte il m'affiche ('la date est incorrecte') ça veu dir un par un

je vous remreci

Je ne suis pas sûr que les exceptions de Delphi puissent remonter aussi finement les info. ADO, ni que ADO fournisse ce niveau de précision.
Donc pour ton cas 2 solutions :
*Comme déja proposé (et c'est pas du luxe !) faire une validation avant ta requète.
*Sur une erreur remonter le message de ADO style :

Code:

---

1 2 3 4 5

on E:Exception do begin showMessage(E.Message); end;

---

Je te conseille d'ailleurs de faire les 2 !!

bonjour

je veux afficher chaque erreur à son message qui correspondant c'est a dir
quand il une exception sur le nom il faut etre afficher un message comme suit
showmessage('le nom est incorrect')........ect

je vous remerci

Je pense que tout le monde a compris ton problème. Comme déja indiqué le plus simple c'est de récupérer le E.Message et de regarder ce que tu peux en faire en fonction des erreurs rencontrées.

bonjour

comment le faire pouriez vous m'ader SVP

Citation:

---

Envoyé par 21247692

comment le faire pouriez vous m'aider

---

Que sont les réponses données ici, sinon de l'aide.
Je suis tenté de dire que c'est à toi désormais de nous aider à t'aider en précisant ce que tu ne comprend pas.

1. Quel SGBDR utilises-tu ?
2. Quelle est le contenu de ta requête ?
3. Quelles contraintes as-tu placé sur les colonnes/tables ?

Si possible déporte le contrôle des régles de gestion au sein d'une procédure stockée.

Recherche-tu une explication au fonctionnement des exceptions ou qu'on te propose une solution à ton problème d'implémentation ?

Cordialement.