🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.modula2
Article #3006

Re: Arrays of Records and Sequential File Reading

#3006
From: jthorpe
Date: Sun, 05 Nov 1995 00:31
19 lines
1678 bytes
In <47a4vn$s5g@grid.Direct.CA>, rleroux@direct.ca (robert leroux) writes:
>Thanks, I managed to get it happening just after the last post using a REPEAT
>.. .. UNTIL loop.  I am only working at getting the ARRAY of the date field 
>working then I should be quite well off.  I have an idea on how to address the
>Date filed and print out the dates per book depending on how many copies of the
>particular book is available, but I believe using the CASE statement, I would have
>to read in my 'copi' field as a CHAR so that I can compare it to the current
>copi that is read into the record.  I am going to try to address this problem with
>an IF...THEN statement tomorrow first, otherwise I think reading in the copi field as
>a CHAR instead of a Str should solve my problem.
>

The purists will kill me for this, but the LOOP  END; EXITing when a hit is 
made is a very useful tool.  The academics will say it's crude and you can do 
the same thing with either REPEAT UNTIL or DO WHILE but there are lots of 
times when one hasn't the time or the inclination to struggle through one or 
the other.

Jim T.
Technical Details
Message-ID: <47h0k9$esj@cliff.island.net>
Path: arc1-ca.pugleaf.net!news.island.net!usenet
References: <46ngu2$r72@grid.Direct.CA> <DH2EpC.MIo@cix.compulink.co.uk> <472lcc$kdk@grid.Direct.CA> <474odt$npe@p235.informatik.uni-Bremen.de> <47a4vn$s5g@grid.Direct.CA>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!news.island.net!usenet
From: jthorpe@island.net
Newsgroups: comp.lang.modula2
Subject: Re: Arrays of Records and Sequential File Reading
Date: 5 Nov 1995 00:31:05 GMT
Organization: Island Internet Inc. - (604) 753-2383
Message-ID: <47h0k9$esj@cliff.island.net>
References: <46ngu2$r72@grid.Direct.CA> <DH2EpC.MIo@cix.compulink.co.uk> <472lcc$kdk@grid.Direct.CA> <474odt$npe@p235.informatik.uni-Bremen.de> <47a4vn$s5g@grid.Direct.CA>
Reply-To: jthorpe@island.net
NNTP-Posting-Host: slip6.island.net
X-Newsreader: IBM NewsReader/2 v1.2