Pr0j3ct 046: Estrutura de repetição

Estrutura de repetição - Delphi (Pascal)

17:56 // by Dr.Spy // Delphi, Dicas // 0 comentários

Criando estruturas de repetição em pascal (compilador Delphi).

Usando a estrutura For.

For variavel := inicio to fim do
begin
processo;
 end;

Exemplo. (Exibindo 10 Mensagens de uma vez só)

procedure Tform1.usandoFor;
begin
for i:=1 to 10 do
 begin
     ShowMessage("Mensagem " + IntToStr(i));
 end;
end;
end.

Usando a estrutura While.

while (condição) do
begin
processo;

contador;
end;

Exemplo.

i:= 1;
procedure Tform1.usandoWhile;
begin
while(i <= 10) do
begin
ShowMessage("Mensagem " + IntToStr(i));
i:=i+1;
end;
end;
end.