SeekEoln: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Unit System) |
|||
Řádek 46: | Řádek 46: | ||
[[Category:System]] | [[Category:System]] | ||
[[Category:Funkce System]] | [[Category:Funkce System]] | ||
+ | [[Category:Procedury a funkce pro práci s textovými soubory]] |
Aktuální verze z 5. 10. 2012, 21:02
Vrací stav "konec řádky" (end-of-line) textového souboru.
- Deklarace
function SeekEoln [ (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é
- Eoln
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.