Цикл While в Delphi

Цикл While в Delphi – это цикл, с предусловием. То есть вначале задается некоторое условие, например условие А, и если оно соответствует истине (true) то начинает выполняться тело цикла Б. И выполняется оно будет до тех пор, пока заданное нами условие А, не примет значение — false.

Для реализации цикла While существуют два специально зарезервированных слова — While и do.

В переводе с английского: 

  • While — означает — в то время как, пока;
  • do — означает — делать, выполнять

Рассмотрим построение цикла While на примере. Допустим нам необходимо заполнить одномерный массив числами. Для этого:

1) Разместим на форме один компонент Button, и один компонент Memo. Свойство Lines компонента Memo — очищаем;

2) Создадим обработчик событий OnClick на кнопке и запишем следующий код:

Далее снова выполняется проверка (while b<max+1 do ), после чего результат отображается в Memo и переменной b присваивается плюс еще одна единица (уже два). И так до тех пор, пока переменная b не перестанет соответствовать условию —  b<max+1, после чего цикл останавливается.

3) Для того чтобы в этом убедиться, запускаем проект, нажимаем на нашу кнопку и наблюдаем, что происходит в Memo.

Еще один пример, более простой, поможет нам внести дополнительную ясность в изучение работы с циклом While. Создадим программу в которой мы будем задавать максимальное значение условия вводя его в Edit, а по нажатию Button— Memo покажет нам весь прогресс изменения значений переменной a от нуля, до введенной нами цифры в Edit:

  • Разместим на форме один компонент Button, один компонент Memo и один компонент Edit;
  • В cвойство Text компонента Memo, прописываем — 0, а свойство Lines компонента Memo — просто очищаем;
  • Создадим обработчик событий OnClick на кнопке и запишем следующий код:

Снова проверяем условие (while a<c do) и если оно истинно, a присваиваем уже увеличенную а, то есть один, показываем его в Memo, добавляем a еще одну единицу  (уже получается два), снова сравниваемся с условием, и так до тех пор пока переменная а, не примет значение введенное нами в Edit.

Запускаем программу, вводим в Edit любое целое положительное число, нажимаем на кнопку и любуемся результатом.