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