Правила форума
Filesize.PASЯзык:
Русский
English
{Filesize.PAS}
{ Пример программы для функции FileSize }
var
F : file of Byte;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
Reset(F);
WriteLn('Размер файла : ', FileSize(F), ' байт.');
Close(F);
end.
var
F : file of Byte;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
Reset(F);
WriteLn('Размер файла : ', FileSize(F), ' байт.');
Close(F);
end.
::
::
::
