FilePos
Verze z 5. 10. 2012, 17:49, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit System)
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
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.