1 578
editací
Změny
Seek
,Vytvorená stránka „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ámk...“
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.
[[Category:System]]
[[Category:Procedúry System]]
;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.
[[Category:System]]
[[Category:Procedúry System]]