Estrutura de Repetição - Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Veja nesta Quick exemplos práticos de estruturas de repetição.


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

 


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?