Estrutura de Repetição - Delphi

• For do
• Repeat Until
• While do

For do

            Com esta instrução, executamos uma repetição da maneira que conhecemos o seu final.

            Faz uso de uma variável do tipo integer, ou derivativas da mesma.

            A variável controladora do tipo Integer é automaticamente incrementada utilizando o To, ou decrementada utilizado o DownTo.

            Exemplo :

Utilizando o To :

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  for I := 0 to 10 do

  begin

    ShowMessage(IntToStr(I));

  end;

end;

Utilizando o DownTo :

procedure TForm1.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  for I := 10 DownTo 0 do

  begin

    ShowMessage(IntToStr(I));

  end;

end;

While do

            Com esta instrução, executamos uma repetição da maneira que não conhecemos o seu final, e sua execução não é garantida de acontecer

            Exemplo :

procedure TForm1.Button1Click(Sender: TObject);

Var

  I : Integer;

begin

  I := 0;

  while I < 10 do

  begin

    if I mod 2 = 0 then

    begin

     if I = 6 then

     begin

       ShowMessage('Valor é 6');

       I := I + 1;

       Continue;

     end

     else

     if I = 8 then

     begin

       ShowMessage('Parou quando I = 8');

       Break;

       ShowMessage('Esta linha não é Executada!!!!');

     end;

     ShowMessage(IntToStr(I));

    end;

    I := I + 1;

  end;

end;

Podemos observar que foram incluídos dois comandos, Break e Continue, mas o que eles fazem?

Continue : Este comando serve para voltarmos ao inicio do Loop, mas cuidado quando for utilizar o mesmo, pois você pode acabar caindo em um Loop infinito, travando assim sua aplicação.

Break : Este comando serve para interrompermos um Loop, sairmos do mesmo.

Repeat Until

            Com esta instrução, executamos uma repetição da maneira que não conhecemos o seu final, mas o conteúdo contido na instrução será executado ao menos uma vez, diferente do While Do o Repeat Until, testa no final, enquanto o outro testa no início.

            Exemplo :

procedure TForm1.Button2Click(Sender: TObject);

Var

  K : Integer;

begin

  K := 7;

  repeat

     ShowMessage(IntToStr(K));

    Inc(K);

  until (K >= 10);

end;

Leia mais em: Estrutura de Repetição - Delphi http://www.devmedia.com.br/estrutura-de-repeticao-delphi/16966#ixzz24s8CgPgQ