Delphi-Help

Описание

Repeat
Statement1;
{Statement2;
...}
Until Expression

Ключевое слово Until заканчивает управляемый цикл, который всегда выполняется не менее одного раза, и который заканчивается, когда выражение(Expression) удовлетворено (возвращает True).
Нет никакой потребности в маркерах Begin и End - ключевые слова Repeat и Until выполняют эту задачу.
Цикл используется, когда важно, чтобы инструкции выполнились не менее одного раза.

Пример кода

var
num, sqrNum : Integer;
begin
num := 1;
sqrNum := num * num;
// Показ квадратов целых чисел, пока мы не достигли значения 100
Repeat
// Показ квадрата числа
ShowMessage('Квадрат '+IntToStr(num)+' = '+IntToStr(sqrNum));
// Приращение числа
Inc(num);
// Возведение в квадрат
sqrNum := num * num;
Until sqrNum > 100;
end;

Квадрат 1 = 1
Квадрат 2 = 4
Квадрат 3 = 9
Квадрат 4 = 16
Квадрат 5 = 25
Квадрат 6 = 36
Квадрат 7 = 49
Квадрат 8 = 64
Квадрат 9 = 81
Квадрат 10 = 100

Примечание

Не обязательно ставить признак конца ';' после последнего оператора.