1 578
editací
Změny
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]]
;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]]