Kolejny temat Seek i FilePos na plikach tekstowych

Article View: pl.comp.lang.pascal

Article #92631

Back to pl.comp.lang.pascal Previous Next

#92631

From: Andrzej Grażyński
Date: Wed, 24 Sep 2008 06:50

42 lines
1741 bytes

No właśnie: czytam sobie plik tekstowy. WYkonałem właśnie kolejny Readln 
i wiersz, który przeczytałem, ma coś ciekawego i chciałbym póżniej do 
niego szybko wrócić. W przypadku plików "File" oraz "File of" robi się 
to oczywiście przez FilePos i Seek. Przydałyby się takie funkcje 
(TextFilePos i TextSeek) dla pliku Text:

var
   F: Text;
   S: String;
   BookmarkPos: Longint;


.....


BookmarkPos := TextFilePos(F);
Readln(F, S);



if not WarteZapamietania(S) then
begin
   BookMarkPos := -1;
end;

....


if BookmarkPos >= 0 then
begin
   TextSeek(F, BoookmarkPos);
   Readln(F, S);  { i mam z powrotem ten sam wiersz }
end;

.......



NO I PYTANIE:

Dlaczego takich funkcji TextSeek i TextFilePos nie ma w standardowej 
bibliotece Turbo Pascala i jak można ten brak uzupełnić w BP7?

Technical Details

Message-ID: <gbcnvs$mt8$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail

References: <20080905121945.03f2cdf2.solaris@be.inspired>

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: Andrzej Grażyński <grazynsk@petex.com.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Kolejny temat Seek i FilePos na plikach tekstowych
Date: Wed, 24 Sep 2008 08:50:24 +0200
Organization: Onet.pl
Lines: 59
Message-ID: <gbcnvs$mt8$1@news.onet.pl>
References: <20080905121945.03f2cdf2.solaris@be.inspired>
NNTP-Posting-Host: 83-238-226-107.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1222239036 23464 83.238.226.107 (24 Sep 2008 06:50:36 GMT)
X-Complaints-To: usenet@news.onet.pl
NNTP-Posting-Date: Wed, 24 Sep 2008 06:50:36 +0000 (UTC)
X-Sender: 2ysppuKZfnIJFd8Xm5/5BA==
In-Reply-To: <20080905121945.03f2cdf2.solaris@be.inspired>
User-Agent: Thunderbird 2.0.0.16 (Windows/20080708)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message