🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: eoln w FP

#92432
From: Michał Walenciak
Date: Wed, 06 Feb 2008 08:03
26 lines
1684 bytes
Andrzej wrote:

 
> 
> Nie wiem jak - ale faktycznie to dziala :)))
> 
> While not eoln(plika) do
>   Begin Read (plika,zn); Write (plikb,zn); End;
> Readln (plika); Wtiteln (plikb);
> Write (plikb,'!');
> 
> Mialem jakieś dziwne wyobrażenie o eoln :D
> Dzięki

może najprościej nie uzywaj funkcji eoln, bo tak jak juz Ci pisali, ona
w pliku made by windows zareaguje, na pierwszy z dwóch znaków
oznaczających koniec lini (13,10). po prostu przerywaj pętle gdy
trafisz na znak o kodzie 10. bedziesz miał wtedy funkcje uniwersalna (i
win i unix - patrz wypowiedź Solarisa) (co najwyzej na macu bedzie
problem tam linia ma na koncu tylko 13;) )

pozdro

-- 
Michał Walenciak,   gg: 3729519,  mail: Kicer86 na gmail kropka com
http://kicer.elsat.net.pl
Technical Details
Message-ID: <fobpii$kue$1@kushnir.sileman>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news.sileman.pl!not-for-mail
References: <fo5fts$7qb$1@nemesis.news.tpi.pl> <fo5qu0$vp3$1@news.dialog.net.pl> <fo6hh6$t3p$1@atlantis.news.tpi.pl> <fo6sad$55u$1@atlantis.news.tpi.pl> <fo6v0o$c21$1@nemesis.news.tpi.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news.sileman.pl!not-for-mail
From: Michał Walenciak <email@w.sygnaturze>
Newsgroups: pl.comp.lang.pascal
Subject: Re: eoln w FP
Date: Wed, 06 Feb 2008 09:03:46 +0100
Organization: TVK Elsat news server (test)
Lines: 26
Message-ID: <fobpii$kue$1@kushnir.sileman>
References: <fo5fts$7qb$1@nemesis.news.tpi.pl> <fo5qu0$vp3$1@news.dialog.net.pl> <fo6hh6$t3p$1@atlantis.news.tpi.pl> <fo6sad$55u$1@atlantis.news.tpi.pl> <fo6v0o$c21$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: host-538ea804.elsat.net.pl
Mime-Version: 1.0
X-Trace: kushnir.sileman 1202284946 21454 83.142.168.4 (6 Feb 2008 08:02:26 GMT)
X-Complaints-To: usenet@kushnir.sileman
NNTP-Posting-Date: Wed, 6 Feb 2008 08:02:26 +0000 (UTC)
User-Agent: KNode/0.10.5
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit