🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92387

Re: Odczyt pliku

#92387
From: Magda S
Date: Wed, 16 Jan 2008 12:16
22 lines
1326 bytes
> 
> Musi być pod TP 7.0 więc odgórnie założenie jest, że linijka ma nie 
> więcej jak 255 znaków


Skąd to założenie?


{$X+}

var
   X: array[0..4095] of char;
   F: Text;

...


   Readln(F, X);

{ przeczyta się pierwsze 4095 znaków z linii albo cała linia gdy krótsza }

A w ogóle to całe zadanie jest dziecinnie proste, gdy się trochę pomyśli.
Technical Details
Message-ID: <fmksjj$lqs$1@news.onet.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
References: <flq380$2kl$1@atlantis.news.tpi.pl> <flq4pc$5a0$2@atlantis.news.tpi.pl> <flq58q$7op$1@atlantis.news.tpi.pl> <flq654$a5q$1@atlantis.news.tpi.pl> <flq87k$fqh$1@atlantis.news.tpi.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
From: Magda S <sowamagda@vp.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Odczyt pliku
Date: Wed, 16 Jan 2008 13:16:29 +0100
Organization: Onet.pl
Lines: 22
Message-ID: <fmksjj$lqs$1@news.onet.pl>
References: <flq380$2kl$1@atlantis.news.tpi.pl> <flq4pc$5a0$2@atlantis.news.tpi.pl> <flq58q$7op$1@atlantis.news.tpi.pl> <flq654$a5q$1@atlantis.news.tpi.pl> <flq87k$fqh$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: 213-238-95-17.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1200485812 22364 213.238.95.17 (16 Jan 2008 12:16:52 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Wed, 16 Jan 2008 12:16:52 +0000 (UTC)
X-Sender: KHtBgMtiNDK3eTOhE4lk6g==
In-Reply-To: <flq87k$fqh$1@atlantis.news.tpi.pl>
User-Agent: Thunderbird 2.0.0.9 (Windows/20071031)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit