Otevřít hlavní menu

FileSize

Verze z 5. 10. 2012, 13:47, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (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...“)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)

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.