Zobrazení zdroje stránky FilePos

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]]
[[Category:Vstupně/výstupní procedury a funkce]]