SeekEof: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řádek 20: | Řádek 20: | ||
{SeekEof.PAS} | {SeekEof.PAS} | ||
{Vzorový příklad pro SeekEof a SeekEoln.} | {Vzorový příklad pro SeekEof a SeekEoln.} | ||
| + | |||
{ Pro Windows: } | { Pro Windows: } | ||
{ uses WinCrt; } | { uses WinCrt; } | ||
| + | |||
var | var | ||
f : Text; | f : Text; | ||
| Řádek 33: | Řádek 35: | ||
Reset(f); | Reset(f); | ||
{ Čte zpětně čísla.SeekEoln vrací TRUE, jestliže není více čísel na | { Čte zpětně čísla.SeekEoln vrací TRUE, jestliže není více čísel na | ||
| − | právě aktivním řádku; SeekEof vrací TRUE jestliže není další text | + | právě aktivním řádku; SeekEof vrací TRUE jestliže není další text (jiný než mezery) v souboru. } |
| − | |||
while not SeekEof(f) do | while not SeekEof(f) do | ||
begin | begin | ||
Aktuální verze z 19. 1. 2014, 21:00
Vrací stav "konec souboru" (end-of-file) textového souboru.
- Deklarace
function SeekEof [ (var F: Text) ]: Boolean;
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Lze použít pouze na textové soubory. Soubor musí být otevřený.
- Viz také
- Eof
Vzorový příklad
{SeekEof.PAS}
{Vzorový příklad pro SeekEof a SeekEoln.}
{ Pro Windows: }
{ uses WinCrt; }
var
f : Text;
i, j : Integer;
begin
Assign(f,'TEST.TXT');
Rewrite(f);
{ Vytváří soubor s 8 čísly a mezerami na koncích řádků }
Writeln(f,'1 2 3 4 ');
Writeln(f,'5 6 7 8 ');
Reset(f);
{ Čte zpětně čísla.SeekEoln vrací TRUE, jestliže není více čísel na
právě aktivním řádku; SeekEof vrací TRUE jestliže není další text (jiný než mezery) v souboru. }
while not SeekEof(f) do
begin
if SeekEoln(f) then
Readln; { Jdi na další řádek }
Read(f,j);
Writeln(j);
end;
end.
