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
begincontador: integer ; //Declare uma variavel para contar quantas vezes repetir
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.