Vraag & Antwoord

Programmeren

Delphi4 try....except statement

2 antwoorden
  • Hallo, ik ben (nog) niet zo ervaren met delphi en heb een probleempje met het try statement. Het gaat goed tot en met het uitvoeren van het exception-blok, maar daarna springt het programma weer terug naar het statement in het try blok en probeert het opnieuw. Klopt dit? Dat wil ik dus eigenlijk niet. Het gaat om dit stukje code:<P> try QueryInsert.ExecSQL; except on E: EDBEngineError do begin AfzwaaierJa := True; With QueryAfzwaaierInsert do begin Params[0].Value := Opendialog1.Files[i]; Params[1].Value := 'Kan record niet toevoegen. ' + 'Foutboodschap: ' + E.Message; Params[2].Value := '2'; ExecSql; end; With Afzwaaier do begin CommitUpdates; ApplyUpdates; end; ID3TagOK := False; end; end; //end except
  • <BLOCKQUOTE><font size="1" face="Arial, Helvetica, Sans Serif">quote:</font><HR>Originally posted by HankyPanky: <B>Hallo, ik ben (nog) niet zo ervaren met delphi en heb een probleempje met het try statement. Het gaat goed tot en met het uitvoeren van het exception-blok, maar daarna springt het programma weer terug naar het statement in het try blok en probeert het opnieuw. Klopt dit? Dat wil ik dus eigenlijk niet. Het gaat om dit stukje code: </B><HR></BLOCKQUOTE> het klopt dat het 'exception'-deel bij je wordt overgeslagen ...<P><BLOCKQUOTE><font size="1" face="Arial, Helvetica, Sans Serif">code:</font><HR><pre> try QueryInsert.ExecSQL; // dit is het 'einde' van deze routine except on E: EDBEngineError do begin // dit wordt alleen uitgevoerd als // er een fout (=EDbEngineError) optreed AfzwaaierJa := True; With QueryAfzwaaierInsert do begin Params[0].Value := Opendialog1.Files[i]; Params[1].Value := 'Kan record niet toevoegen. ' + 'Foutboodschap: ' + E.Message; Params[2].Value := '2'; ExecSql; end; With Afzwaaier do begin CommitUpdates; ApplyUpdates; end; ID3TagOK := False; end; end; //end except </pre><HR></BLOCKQUOTE><P>Als je deze code in een lus zou aanroepen ... dan doe je dus feitelijk alleen maar : <BLOCKQUOTE><font size="1" face="Arial, Helvetica, Sans Serif">code:</font><HR><pre> QueryInsert.ExecSQL; </pre><HR></BLOCKQUOTE><P><P>------------------ - <A HREF="http://www.redkink.nl" TARGET=_blank>Red Kink FM</A> - - <A HREF="http://jafo.mienadres.nl" TARGET=_blank>JaFO's Bot-editor</A> - - How many pirates did you <A HREF="http://www.bsa.org/nederland/report/report.phtml" TARGET=_blank>kill</A> today ? -

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.