Delphi-Help

Описание

1 for Variable := Integer Expression downto Integer Expression do Statement;
2 for Variable := Char Expression downto Char Expression do Statement;
3 for Variable := Enum Expression downto Enum Expression do Statement;

Ключевое слово DownTo предшествует целевому значению Expression в цикле For.
Выражение DownTo может иметь Integer, Char или Перечисляемый тип.
См. ключевое слово For для полных подробностей. Примеры иллюстрируют эти три типа выражения.

Пример кода

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

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

i = 5
i = 4
i = 3
i = 2
i = 1

Пример кода : Символ для цикла

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
// Цикл 5 раз
for suit := Diamonds DownTo Hearts do
ShowMessage('Suit = '+IntToStr(Ord(suit)));
end;

var
suit : (Hearts, Clubs, Diamonds, Spades);
begin
// Цикл 5 раз
for suit := Diamonds DownTo Hearts do
ShowMessage('Suit = '+IntToStr(Ord(suit)));
end;

Примечание