Re: Multiple file open/close anomaly?

Article View: comp.lang.pascal.borland

Article #415

Back to comp.lang.pascal.borland Previous Next

#415

From: Ing. Franz Glaser
Date: Sat, 05 Dec 1998 00:00

27 lines
1581 bytes

Robert AH Prins wrote:
> 
> Yes, it is!
....
This was a doubtful idea only. Let me make a more professional
suggestion:

Open/create as many files as you need, and send the appropriate
file to your procedures as a Var parameter or even berrer as a 
pointer to the file. This makes it unnecessary to open and 
close them so frequently.

Var ProtFiles : Array[1..xxx] of Text;
    PT     : ^Text;

Procedure AnyProc;
Begin
  Writeln(PT^,...);
End;

  PT^ := @ProtFiles[3];
  AnyProc;

In case the file handles exhausted, look for the article in the
TP-links site, FAQ-page, about >15 handles.

Regards, Franz Glaser

Technical Details

Message-ID: <36699C17.8EE47C9C@eunet.at>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <749jnl$slc$1@nnrp1.dejanews.com> <36685A89.70BC2B0F@eunet.at> <74bee2$bal$1@nnrp1.dejanews.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 111659,df5b94058f04a442
X-Google-Attributes: gid111659,public
X-Google-Thread: 108ebd,df5b94058f04a442
X-Google-Attributes: gid108ebd,public
From: "Ing. Franz Glaser" <meg-glaser@eunet.at>
Subject: Re: Multiple file open/close anomaly?
Date: 1998/12/05
Message-ID: <36699C17.8EE47C9C@eunet.at>
X-Deja-AN: 419031696
Content-Transfer-Encoding: 7bit
References: <749jnl$slc$1@nnrp1.dejanews.com> <36685A89.70BC2B0F@eunet.at> <74bee2$bal$1@nnrp1.dejanews.com>
To: Robert AH Prins <prinsra@williscorroon.com>
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@Austria.EU.net
X-Trace: fleetstreet.Austria.EU.net 912890879 7034 193.81.169.130 (5 Dec 1998 20:47:59 GMT)
Organization: http://members.eunet.at/meg-glaser/index.html
Mime-Version: 1.0
NNTP-Posting-Date: 5 Dec 1998 20:47:59 GMT
Newsgroups: comp.lang.pascal.borland,borland.public.turbopascal

Reply to Parent Message