Delphi/Kylix, Estrutura de Repetição

Em qualquer aplicação profissional (as vezes em aplicações comuns também) é preciso de usar repetições, por isso esse post é dedicado a estrutura de repetição no Delphi e no Kylix.

 

O código abaixo é para que o programa repita de 1 a 10 uma mensagem informando o número de vezes repetidos.

var
contador: integer ;  //Declare uma variavel para contar quantas vezes repetir

begin
 contador:=0;  //De um valor inicial para a contagem
 repeat //Inicie a repetição.
contador:= contador+1;  //Informe que a cada vez que for repetir será somado mais um
 showmessage(IntToStr(contador));//Mensagem mostrando a contagem de repetição (a variável e convertida)
 until(contador=10);  //Informe o total de vezes a ser repetido
end;

Simples, né?

Deixe abaixo seu comentário, crítica, sugestão etc.