SeekEof

Z Delphi & Pascal (česká wiki)
Verze z 19. 1. 2014, 21:00, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.