Seek

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Přemístí ukazatel aktuální pozice v souboru na určenou složku.

Deklarace
procedure Seek(var F; N: Longint);
Režim
Windows, Reálný, Chráněný
Poznámky
F je proměnná kteréhokoli souborového typu kromě textového souboru, N je výraz typu Longint. Ukazatel aktuální pozice souboru F se přesune na složku číslo N. První složka souboru má číslo 0. Pokud chcete soubor rozšířit, přesuňte ukazatel pozice o jednu složku za poslední složku; tj. příkaz Seek(F, FileSize(F)) přemístí ukazatel aktuální pozice na konec souboru.
V režimu {$I-} vrací funkce IOResult hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
Omezení
Nelze použít na textové soubory. Soubor musí být otevřený.
Viz také
FilePos


Vzorový příklad

{FilePos.PAS}
{Vzorový příklad pro FilePos, FileSize  a Seek.}
{ Pro Windows: }
{ uses WinCrt; }
 var
   f: file of Byte;
   size : Longint;
 begin
   { Získání textu z příkazové řádky }
   Assign(f, ParamStr(1));
   Reset(f);
   size := FileSize(f);
   Writeln('Velikost souboru v bajtech: ',size);
   Writeln('Nastavení do poloviny souboru...');
   Seek(f,size div 2);
   Writeln('Pozice je nyní ',FilePos(f));
   Close(f);
 end.