1 578
editací
Změny
Vytvorená stránka „Vrací aktuální pozici v souboru. ;Deklarace function FilePos(var F): Longint; ;Režim :Windows, Reálný, Chráněný ;Poznámky :F je proměnná typu soubor....“
Vrací aktuální pozici v souboru.
;Deklarace
function FilePos(var F): Longint;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je [[proměnná typu soubor]]. Pokud je aktuální pozice na začátku souboru, vrací FilePos(F) hodnotu 0. Pokud je aktuální pozice na konci souboru, tj. pokud [[Eof]](F) je [[True]], [[FilePos]](F) je rovna [[FileSize]](F).
:V režimu {[[$I]]-} vrátí funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Omezení
:Nelze aplikovat na [[textový soubor]]. Soubor musí být otevřený.
;Viz také
:[[FileSize]]
:[[Seek]]
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:Funkce System]]
;Deklarace
function FilePos(var F): Longint;
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:F je [[proměnná typu soubor]]. Pokud je aktuální pozice na začátku souboru, vrací FilePos(F) hodnotu 0. Pokud je aktuální pozice na konci souboru, tj. pokud [[Eof]](F) je [[True]], [[FilePos]](F) je rovna [[FileSize]](F).
:V režimu {[[$I]]-} vrátí funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Omezení
:Nelze aplikovat na [[textový soubor]]. Soubor musí být otevřený.
;Viz také
:[[FileSize]]
:[[Seek]]
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:Funkce System]]