Правила форума
Continue (процедура)Язык:
Русский
English
Continue (процедура)
Продолжает циклы for, while и repeat.
Объявление
Procedure Continue
Режим
Windows, Real, Protected
Замечания
Заставляет цикл for, while или repeat немедленно перейти к следующей итерации.
Компилятор сообщает об ошибке, если вызов Continue не был сделан внутри циклов for, while или repeat.
Смотри также
Пример
Язык:
Русский
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.
::
::
::
