Язык:
Русский
English
{ Пример программы для процедуры Continue }
uses Crt;
var
I : Integer;
Name : String[79];
F : File;
begin
for I := 1 to ParamCount do
begin
Name := ParamStr(I);
Assign(F, Name);
{$I-}
FileMode := 0;
Reset(F, 1);
{$I+}
if IOResult <> 0 then
begin
WriteLn('Файл "', Name, '" не найден...');
Continue;
end;
WriteLn(Name, ' : ', FileSize(F), ' байт');
Close(F);
end;
end.
var
I : Integer;
Name : String[79];
F : File;
begin
for I := 1 to ParamCount do
begin
Name := ParamStr(I);
Assign(F, Name);
{$I-}
FileMode := 0;
Reset(F, 1);
{$I+}
if IOResult <> 0 then
begin
WriteLn('Файл "', Name, '" не найден...');
Continue;
end;
WriteLn(Name, ' : ', FileSize(F), ' байт');
Close(F);
end;
end.