Оператор While

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

while-statement:

While   boolean-expression   Do   block   End While

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

• Вычисляется выражение в условии цикла.

• Если значение выражения равно True, то управление передается блоку вложенных операторов. После окончания выполнения блока (возможно в результате выполнения оператора Continue) управление передается в начало оператора.

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

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

Пример

Private Sub TestWhile();
Var
    b: boolean;
Begin
    b := True;
    While b Do
        If < Условие выхода из цикла > Then
            b := False;
        End If;
    End While;
End Sub;

См.также:

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