Delphi-Help

Описание

While Expression do Statement;

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

Пример кода

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

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

Примечание