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

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

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

For
Ключевое слово
Начинает цикл, который выполняется конечное число раз unit
  
1 for Variable := Integer Expression to|downto Integer Expression do Statement;

2 for Variable := Char Expression to|downto Char Expression do Statement;

3 for Variable := Enum Expression to|downto Enum Expression do Statement;

Delphi Sources

Описание
Ключевое слово For начинает управляемый цикл, который выполняется конечное число раз.

Переменной (Variable) присваивается значение 1-ого Выражения (Expression). Если значение меньше чем значение 2-ого Выражения (Expression), если он определен, то Инструкция (Statement) выполняется. Затем Переменная (Variable) увеличивается 1, и процесс повторяется, пока переменное значение не превысит 2-ое значение выражения.

Для downto, переменное значение проверяется является ли оно больше чем 2-ое выражение, и его значение, затем уменьшается на 1 в конце цикла.

Выражения могут быть любыми перечислимыми типами - Integer, Char или Перечисления.

Инструкция (Statement) может состоять из одной линии, или находиться в операторном блоке begin/end.
Похожие команды
Begin  Ключевое слово, которое начинает операторный блок

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

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

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

To  Префикс целевого значения в цикле For

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

While  Повторяет инструкции, пока выполнится условие продолжения

 
Пример кода : Целое число для цикла
var
  i : Integer;

begin
  // Цикл 5 раз
  For i := 1 to (10 div 2) do
    ShowMessage('i = '+IntToStr(i));
end;

i = 1
i = 2
i = 3
i = 4
i = 5
 
Пример кода : Символ для цикла
var
  c : char;
begin
  // Цикл 5 раз - вниз
  For c := 'E' downto 'A' do
    ShowMessage('c = '+c);
end;

c = E
c = D
c = C
c = B
c = A
 
Пример кода : Перечисление для цикла
var
  suit : (Hearts, Clubs, Diamonds, Spades);
begin
  // Цикл 3 раза
  For suit := Hearts to Diamonds do
    ShowMessage('Suit = '+IntToStr(Ord(suit)));
end;

Suit = 0
Suit = 1
Suit = 2
 


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

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")

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