Правила форума
IOResult.PASЯзык:
Русский
English
{ Пример программы для функции IOResult }
uses Crt;
var
F : file of Byte;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
if IOResult = 0 then
WriteLn('Размер файла: ', FileSize(F), ' байт.'))
else
WriteLn('Файл не найден.');
end.
var
F : file of Byte;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
{$I-}
Reset(F);
{$I+}
if IOResult = 0 then
WriteLn('Размер файла: ', FileSize(F), ' байт.'))
else
WriteLn('Файл не найден.');
end.
::
::
::
