Оператор Repeat

Оператор Repeat выполняет вложенные операторы в зависимости от условия один или более раз.

repeat-statement:

Repeat   block   Until   boolean-expression   

Оператор выполняется следующим образом:

• Управление передается блоку вложенных операторов.

• По достижению завершающей точки блока вложенных операторов производится вычисление выражения в условии. Если значение выражения равно False, то управление передается в начало оператора. В противном случае управление передается в завершающую точку оператора.

Внутри блока вложенных операторов оператора Repeat можно использовать оператор Break для немедленной передачи управления в завершающую точку оператора Repeat, а также оператор Continue для передачи управления в завершающую точку вложенных операторов.

Пример

Private Sub TestRepeat();
Var
    b: boolean;
Begin
    Repeat
        //Выполняемый в цикле код
        If < Условие выхода из цикла > Then
            b := True;
        End If;
    Until b;
End Sub;

См.также:

Операторы цикла