FilePos: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(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....“) |
|||
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řádek 44: | Řádek 44: | ||
[[Category:System]] | [[Category:System]] | ||
[[Category:Funkce System]] | [[Category:Funkce System]] | ||
| + | [[Category:Vstupně/výstupní procedury a funkce]] | ||
Aktuální verze z 5. 10. 2012, 20:51
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.
