Справочник функций и процедур Delphi: While

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

While
Ключевое слово
Повторяет инструкции, пока выполнится условие продолжения unit
  While Expression do Statement;

Delphi Sources

Описание
Ключевое слово While начинает цикл, который выполняется пока, Выражение(Expression) удовлетворяется (возвращает True).

Цикл не выполняется вообще, если выражение является ложным с самого начала.

Если в цикле используются множественные инструкции, то они должны заключатся в Begin и End маркеры.

While используется, когда важно, чтобы инструкции выполнялись только когда необходимо.
Похожие команды
Begin  Ключевое слово, которое начинает операторный блок

Boolean  Позваляет принимать только True и False значения

Do  Определяет начало некоторого управляемого действия

End  Ключевое слово, которое заканчивает операторные блоки

For  Начинает цикл, который выполняется конечное число раз

Repeat  Повторяет инструкции, пока не выполнится условие завершения

Until  Заканчивает управляемый цикл Repeat

 
Пример кода : Показ квадратов целых чисел, пока мы не достигли 100
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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте