🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi.bazy-danych
Article #658

Re: Obsługa wyjątku EDBEngineError

#658
From: Pawel Koloszko
Date: Fri, 21 May 1999 06:11
25 lines
1488 bytes
Jacek Malinowski wrote in message <7i1t5n$img$1@korweta.task.gda.pl>...
>Jak nalezy obsłuzyc ten wyjątek z własny komunikatem ?
>I gdzie w Delphi 4.0 włącza się w opcjach obsługe wyjątków ?


Proponuje tak:

try

.....
except
on E : EDBEngineError do
     begin
        if Errors[ErrorCount - 1].ErrorCode = tu_kod_bledu then
         zrob_cos_tam
        else raise;   // jezeli blad o innym kodzie niz tu_kod_bledu
      end
else raise;      // jezeli blad rozny od EDBEngineError
end;

A co do tej obslugi wyjatkow, to nie wiem czy o to ci chodzi ale zajrzyj do
Tools | Debugger Options

PK
Technical Details
Message-ID: <8L613.34535$I1.664143@news.tpnet.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!news.nask.pl!orion.cst.tpsa.pl!news.tpnet.pl!not-for-mail
References: <7i1t5n$img$1@korweta.task.gda.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!mat.uni.torun.pl!uw.edu.pl!news.nask.pl!orion.cst.tpsa.pl!news.tpnet.pl!not-for-mail
From: "Pawel Koloszko" <pablo@zorba.zeto.olsztyn.pl>
Newsgroups: pl.comp.lang.delphi.bazy-danych
References: <7i1t5n$img$1@korweta.task.gda.pl>
Subject: Re: Obsługa wyjątku EDBEngineError
Lines: 27
X-Newsreader: Microsoft Outlook Express 4.72.3110.5
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Message-ID: <8L613.34535$I1.664143@news.tpnet.pl>
Date: Fri, 21 May 1999 08:11:55 +0200
NNTP-Posting-Host: 195.116.26.158
X-Complaints-To: abuse@tpsa.pl
X-Trace: news.tpnet.pl 927266884 195.116.26.158 (Fri, 21 May 1999 08:08:04 MET DST)
NNTP-Posting-Date: Fri, 21 May 1999 08:08:04 MET DST
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit