Otevřít hlavní menu

Změny

FileSize

Přidáno 1 036 bajtů, 5. 10. 2012, 13:47
Vytvorená stránka „Vrací aktuální velikost souboru. ;Deklarace function FileSize(var F): Longint; ;Režim :Windows, Reálný, Chráněný ;Poznámky :F je proměnná typu soubor...“
Vrací aktuální velikost souboru.

;Deklarace
function FileSize(var F): Longint;

;Režim
:Windows, Reálný, Chráněný

;Poznámky
:F je [[proměnná typu soubor]]. [[FileSize]](F) vrací počet složek v F. Pokud je soubor prázdný, [[FileSize]](F) vrací 0.

: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é
:[[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:Funkce System]]