Passser outre une erreur dans delphiRésolu

Question

Bonjour,

n'&#233;tant pas tr&#232;s familier avec la gestion des exceptions sous Delphi, je cherche l'&#233;quivalent de On resume next de VB qui permet de passer outre l'erreur et de continuer le programme.

Dans mon cas je lis un fichier texte et je mets &#224; jour une table Access et je  voudrais que la boucle continue apres une erreur d'enregistrement:

while not eof(f) do begin
         // Num&#233;ro de la FT         If (copy(chaine,30,2) 'FT') or (copy(chaine,30,2) 'BT') or (copy(chaine,30,2) = 'BS') Then
              begin
              progress:=progress+1;
              strNumDoc:=copy(chaine,30,30);
              strDoc:= copy(chaine,61,255);
              try
              DM.tbl_RefDoc.Insert;
              DM.tbl_RefDoc.FieldByName('Num_Doc').asString:=strNumDoc;===========> Index primaire
              DM.tbl_RefDoc.FieldByName('Clair_Doc').asString:=strDoc;
              DM.tbl_RefDoc.Post;
              ProgressBar1.Position := Progress;
              except on Exception do
               //Ici quand il s'agit d'un doublon je voudrais que la boucle continue.................
              end;
            end;
           end;
           showmessage('Importation termin&#233;e..');
           CloseFile(f);
           Progressbar1.Visible := false;


       end;
    end;

Dans l'attente

Bien cordialement

Codial

cs_Delphiprog · Accepted Answer

S'il s'agit d'une erreur d'insertion quand tu rencontres un doublon, alors tu peux annuler cette insertion en ajoutant DM.tbl_RefDoc.Cancel dans le bloc de gestion de l'exception.
Au lieu de'intercepter les erreurs de la classe Exception, tu devrais &#234;tre plus fin et pr&#233;f&#233;rer au minimum la classe EDataBaseError.

Personnellement, je pense que l'instruction "On Error Resume Next" du VB est une erreur monumentale. En effet, quand il se produit une erreur, pourquoi vouloir continuer un traitement en laissant l'erreur se propager ?
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

codial · Answer

Bonjour,
merci pour cette aide car je ne trouvais vraiment pas la solution. Pour etre franc je ne saisi pas encore la diff&#233;rence ente les classes exception et EDataBaseError, mais je vais y arriver!!!

Venant du VB, pour ce qui concerne l'instruction "On Error Resume Next" du VB personnellement je la trouve bien pratique!!!

Cordialement

Codial

cs_Delphiprog · Answer

Pratique, certes, mais dangereuse quand m&#234;me.

Au sujet de l'interception des dif&#233;rentes classes d'exceptions : la classe Exception est la classe m&#232;re de toutes les exceptions. En interceptant des erreurs de ce type, tu interceptes tout type d'exception y compris celles qui n'ont aucun rapport avec le probl&#232;me li&#233; aux bases de donn&#233;es.
En restreignant l'interception au type EDataBaseError, tu pourras appliquer un traitement plus appropri&#233; en &#233;tant sur que l'erreur s'est produite dans l'ensemble de donn&#233;es.
Si tu souhaites traiter &#224; la fois les exceptions EDataBaseError et Exception, surtout commence par traiter le type d'exception de plus haut niveau comme ceci :
except
     on E:EDataBaseError do ...

     on E: Exception do ...
end;
Si tu inverses l'ordre de traitement dans le code ci-dessus, jamais tu ne traiteras les exceptions de la classe EDataBaseError.
Si tu n'as pas eu la chance d'avoir le poster de la hi&#233;rarchie VCL avec Delphi, voici un lien utile. 
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_Delphiprog · Answer

Plus r&#233;cent, le poster pour Delphi  7 (le lien pr&#233;c&#233;dent est pour celui des composants livr&#233;s avec Delphi 5).

<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Passser outre une erreur dans delphi

4 réponses

Votre réponse

Discussions similaires