Справочник функций и процедур 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

  Реклама:

|  Купить ивановское постельное белье - кпб оптом купить постельное белье lakshmi4.ru.  |

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;

Google  
 
Описание
Ключевое слово 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook