Estrutura de Repetição - Delphi

Olá galera, nesta Quick Tips, vou falar das instruções de repetição que existem hoje em dia, com a estrutura da linguagem Pascal, encontrada no Delphi.

Instruções de repetição tornam nosso código mais prático, e reaproveitável, pois as instruções contidas no seu interior serão repetidas enquanto sua condição for satisfatória. Imagine um sistema onde você teria que solicitar o nome de 5 pessoas, ou então um sistema onde você teria que varrer um determinado número de objetos contidos num Form? Com as instruções de repetição fazemos um código bem mais limpo é reaproveitável.

• 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;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br