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.3 required=5.0 tests=BAYES_00,INVALID_MSGID,
	MSGID_RANDY autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,dc393c3a10696107
X-Google-Attributes: gid103376,public
From: Achim Gerhard <achim_g@my-deja.com>
Subject: Re: Create-Delete tmp Files
Date: 2000/03/23
Message-ID: <8bcmds$6e9$1@nnrp1.deja.com>#1/1
X-Deja-AN: 601217247
References: <8b4n77$u4a$1@nnrp1.deja.com>
 <tqtB4.3191$b64.79684@news.pacbell.net> <8b8195$ahk$1@nnrp1.deja.com>
 <649110192wnr@natron.demon.co.uk>
X-Http-Proxy: 1.0 x40.deja.com:80 (Squid/1.1.22) for client 195.243.118.226
Organization: Deja.com - Before you buy.
X-Article-Creation-Date: Thu Mar 23 08:59:45 2000 GMT
X-MyDeja-Info: XMYDJUIDachim_g
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.7 [en] (WinNT; I)
Date: 2000-03-23T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <649110192wnr@natron.demon.co.uk>,
Roger@natron.demon.co.uk wrote:
>
> Where and how is "the_file" declared ?
>
Roger,
this is the whole Ada code (the main program)
with Text_IO;
procedure IO_Test
is
the_file : Text_IO.File_Type;
begin
for i in integer range 1 .. 100_000 loop
Text_IO.Create ( File => the_file, Mode => Text_IO.OUT_File );
Text_IO.Reset ( File => the_file, Mode => Text_IO.IN_File );
Text_IO.Delete ( File => the_file );
end loop;
end IO_Test;
Regards,
Achim
> --
> Roger Barnett
>
>
--
_ _
/A/G


Sent via Deja.com http://www.deja.com/
Before you buy.