SeekEof: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
Řádek 20: Řádek 20:
 
  {SeekEof.PAS}
 
  {SeekEof.PAS}
 
  {Vzorový příklad pro SeekEof a SeekEoln.}
 
  {Vzorový příklad pro SeekEof a SeekEoln.}
 +
 
  { Pro Windows: }
 
  { Pro Windows: }
 
  { uses WinCrt; }
 
  { uses WinCrt; }
 +
 
   var
 
   var
 
     f : Text;
 
     f : Text;

Aktuální verze z 19. 1. 2014, 21:00

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.