Re: try... finally i except na doczepke ;-)

Article View: pl.comp.lang.delphi

Article #334943

Back to pl.comp.lang.delphi Previous Next

#334943

From: Grzegorz Skoczylas
Date: Sat, 28 Jan 2012 01:23

39 lines
1647 bytes

W dniu 2012-01-28 00:53, R.e.m.e.K pisze:
> Witam
>
> Zalozmy ze mam kod:
>
> try
>   jakis kod
>   tu nastepuje wyjatek!
>   jakis kod
> finally
>   czy da sie tutaj wykryc ze program jest w trybie obslugi wyjatku?
> end;
>
> Da sie to jakos sprawdzic?

Na przykład tak:

var
   bException:  Boolean;

begin
   bException := False;
   try
     try
       // jakiś kod
       // to generowany jest wyjątek
       // jakiś kod
     except
       bException := True;
       raise
     end
   finally
     if bException then
       ShowMessage('W kodzie wystąpił błąd')
   end

-- 
Grzegorz Skoczylas
http://gskoczylas.rekord.pl

Technical Details

Message-ID: <jfvimp$iej$1@news.dialog.net.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail

References: <1bm36j6wkeihw$.dlg@hell.heaven>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
From: Grzegorz Skoczylas <gskoczylas@kasuj-to.rekord.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: try... finally i except na doczepke ;-)
Date: Sat, 28 Jan 2012 02:23:23 +0100
Organization: Dialog Net
Lines: 39
Message-ID: <jfvimp$iej$1@news.dialog.net.pl>
References: <1bm36j6wkeihw$.dlg@hell.heaven>
NNTP-Posting-Host: dynamic-78-8-102-30.ssp.dialog.net.pl
Mime-Version: 1.0
X-Trace: news.dialog.net.pl 1327713817 18899 78.8.102.30 (28 Jan 2012 01:23:37 GMT)
X-Complaints-To: abuse@dialog.net.pl
NNTP-Posting-Date: Sat, 28 Jan 2012 01:23:37 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:9.0) Gecko/20111222 Thunderbird/9.0.1
In-Reply-To: <1bm36j6wkeihw$.dlg@hell.heaven>
X-Antivirus: avast! (VPS 120127-1, 2012-01-27), Outbound message
X-Antivirus-Status: Clean
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message