SeekEof
Verze z 4. 2. 2013, 15:58, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
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.