Seek

Internφ programovacφ jazyk

function Seek(var f : file; position : integer) : Boolean;

Parametry

f prom∞nnß typu File
position pozice v souboru (nezßpornΘ Φφslo)

Popis

Funkce nastavφ pozici v souboru f na hodnotu zadanou druh²m parametrem. Soubor musφ b²t otev°en.

Pozice v souboru urΦuje mφsto, kam se do souboru bude zapisovat nßsledujφcφ procedurou Write (Writeln), resp. odkud se bude Φφst funkcφ Read.

P°i pou₧itφ funkce Eof pro zjiÜt∞nφ konce souboru f nezapome≥te, ₧e funkce Eof p°eskakuje mezery mezi slovy.

Hodnota funkce

Funkce vrßtφ TRUE pokud soubor f je otev°en, jinak vrßtφ FALSE.

P°φklad:

procedura, kterß p°idß na konec textovΘho souboru dalÜφ °ßdek

procedure Zapis(ss : string[50]);
/*************************************/
begin
  Reset(f,"C:\wb602\test.txt");
  Seek(f,FileLength(f));
  WriteLn(f,ss," ",strcat("cyklus #",int2str(i))," ",Now);
  Close(f);
end;

Viz