Funkce Eof

Eof

function Eof(var f : file) : Boolean;

Parametry

f	prom∞nnß typu soubor (File)

Popis

Funkce Eof zjiÜ¥uje, zda soubor f byl doΦten do konce. Tento soubor musφ b²t otev°en. VedlejÜφm efektem funkce Eof je p°eskoΦenφ mezer a odd∞lovaΦ∙ °ßdek p°ed testovßnφm konce souboru.

Hodnota funkce

Funkce vrßtφ TRUE, pokud je soubor doΦten do konce nebo pokud nep°eΦten² zbytek souboru sestßvß v okam₧iku volßnφ Eof pouze z mezer a odd∞lovaΦ∙ °ßdek. Jinak vrßtφ FALSE.

P°φklad

var
  f : file;
  str : string[200];
  pom,delka : integer;

begin                                               
  if Reset(f,"c:\test.txt') then begin   // neΦte mezery
    while not Eof(f) do begin            // Eof() zp∙sobφ p°eskoΦenφ mezer a odd∞lovaΦ∙
      Read(f,str);
      info_box('',str);
    end;
    Close(f);
  end;  

if Reset(f,"c:\test.txt') then begin    // Φte mezery vÜude
    delka := Filelength(f);
    pom := 0;
    repeat 
      Read(f, str);
      info_box(int2str(StrLength(str)),str);
      pom := pom+StrLength(str)+2;        // +2 je znak konce °ßdku (CR LF)
    until pom>=delka  ;
    Close(f);
  end;
  
end.

Viz