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.
Тэги: Continue
| G+
Код для вставки: :: :: :: ::
Поделиться: // //