1 578
editací
Změny
Vytvorená stránka „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á...“
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]]
:[[SeekEoln]]
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.
[[Category:System]]
[[Category:Funkce System]]
;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]]
:[[SeekEoln]]
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.
[[Category:System]]
[[Category:Funkce System]]