For em Delphi
Autor: Jhonatan Felipe | Publicado: 2012-04-17T14:27:00-07:00

"Artigo traduzido da versão em inglês do&nbsp;Delphi Basics. A palavra-chave “FOR” inicia um ciclo de controle, que é executado um número finito de vezes. A variável é definida como o resultado da expressão 1.Se o resultado for inferior ou igual ao resultado da segunda expressão (quando especificada), assim, a instrução é executada. A variável é então incrementada por 1 e o processo é repetido até que o valor da variável exceder o valor de expressão 2.Para a técnica downto, o valor da variável é verificado como sendo maior do que ou igual à&nbsp; segunda expressão, e o seu valor é decrementado no final do laço for. As expressões podem resultar em qualquer tipo ordinal – Integers, Characters ou Enumerations. A Declaração for pode compreender uma única linha, ou um conjunto de instruções com um bloco de início (begin) / fim (end)."

Confira alguns exemplos da utilização do laço For no Delphi:
Integer com loop em For// Full Unit code.
// ———————————————————–
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.

unit&nbsp;Unit1;

interface

uses
&nbsp; SysUtils,
&nbsp; Forms,&nbsp;Dialogs;

type
&nbsp; TForm1&nbsp;=&nbsp;class(TForm)
&nbsp; &nbsp;&nbsp;procedure&nbsp;FormCreate(Sender:&nbsp;TObject);
&nbsp;&nbsp;end;

var
&nbsp; Form1:&nbsp;TForm1;

implementation
{$R *.dfm}&nbsp;// Include form definitions

procedure&nbsp;TForm1.FormCreate(Sender:&nbsp;TObject);
var
&nbsp; i&nbsp;:&nbsp;Integer;
begin
&nbsp;&nbsp;// Loop 5 times
&nbsp;&nbsp;For&nbsp;i&nbsp;:=&nbsp;1&nbsp;to&nbsp;(10&nbsp;div&nbsp;2)&nbsp;do
&nbsp; &nbsp; ShowMessage(‘i = ‘+IntToStr(i));
end;

end.
Char com loop em For// Full Unit code.
// ———————————————————–
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.

unit&nbsp;Unit1;

interface

uses
&nbsp; Forms,&nbsp;Dialogs;

type
&nbsp; TForm1&nbsp;=&nbsp;class(TForm)
&nbsp; &nbsp;&nbsp;procedure&nbsp;FormCreate(Sender:&nbsp;TObject);
&nbsp;&nbsp;end;

var
&nbsp; Form1:&nbsp;TForm1;

implementation
{$R *.dfm}&nbsp;// Include form definitions

procedure&nbsp;TForm1.FormCreate(Sender:&nbsp;TObject);
var
&nbsp; c&nbsp;:&nbsp;char;
begin
&nbsp;&nbsp;// Loop 5 times – downwards
&nbsp;&nbsp;For&nbsp;c&nbsp;:=&nbsp;‘E’&nbsp;downto&nbsp;‘A’&nbsp;do
&nbsp; &nbsp; ShowMessage(‘c = ‘+c);
end;

end.
Enumeration com loop em For// Full Unit code.
// ———————————————————–
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.

unit&nbsp;Unit1;

interface

uses
&nbsp; SysUtils,
&nbsp; Forms,&nbsp;Dialogs;

type
&nbsp; TForm1&nbsp;=&nbsp;class(TForm)
&nbsp; &nbsp;&nbsp;procedure&nbsp;FormCreate(Sender:&nbsp;TObject);
&nbsp;&nbsp;end;

var
&nbsp; Form1:&nbsp;TForm1;

implementation
{$R *.dfm}&nbsp;// Include form definitions

procedure&nbsp;TForm1.FormCreate(Sender:&nbsp;TObject);
var
&nbsp; suit&nbsp;:&nbsp;(Hearts,&nbsp;Clubs,&nbsp;Diamonds,&nbsp;Spades);
begin
&nbsp;&nbsp;// Loop 3 times
&nbsp;&nbsp;For&nbsp;suit&nbsp;:=&nbsp;Hearts&nbsp;to&nbsp;Diamonds&nbsp;do
&nbsp; &nbsp; ShowMessage(‘Suit = ‘+IntToStr(Ord(suit)));
end;

end.