From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,d8a4797a79f9c90f X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-05-27 06:47:14 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed1.e.nsc.no!nsc.no!nextra.com!uio.no!ntnu.no!not-for-mail From: Preben Randhol Newsgroups: comp.lang.ada Subject: Re: I/O - exception handling Date: Tue, 27 May 2003 13:47:14 +0000 (UTC) Organization: Norwegian university of science and technology Message-ID: References: NNTP-Posting-Host: kiuk0152.chembio.ntnu.no X-Trace: tyfon.itea.ntnu.no 1054043234 3082 129.241.83.78 (27 May 2003 13:47:14 GMT) X-Complaints-To: usenet@itea.ntnu.no NNTP-Posting-Date: Tue, 27 May 2003 13:47:14 +0000 (UTC) User-Agent: slrn/0.9.7.4 (Linux) Xref: archiver1.google.com comp.lang.ada:37835 Date: 2003-05-27T13:47:14+00:00 List-Id: Sergey Koshcheyev wrote: > >> begin >> Open (File, Name => "test.txt", Mode => In_File); >> Get_Line (File, S1); >> Get_Line (File, S2); >> Close_File; >> >> exception >> when others => >> Close_File; >> end Read_Something; > > This closes the file twice, as does the example below - something I > don't like. No it doesn't. Well that is since you do the when others => and if you get an error in Close_File (why doesn't it take arguments btw?) then it will call Close_File again. But if you get an exception in Open the program will jump to the exception bit and not go through the other steps. -- Preben Randhol http://www.pvv.org/~randhol/