SeekEoln: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Vytvorená stránka „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...“) |
|||
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řá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.
