Estrutura de Repetição com Teste Lógico no Início do Looping "while... do..."

  Essa instrução executa um bloco de comandos enquanto a condição booleana for verdadeira. Se a condição antes de while... do... já começar falsa o bloco de comandos não será executado nenhuma vez.

  Sintaxe:
  while condição do {bloco de comandos};

  begin
   { ... comandos iniciais ... }
   while numero < 10 do
    { ... bloco de comandos ... }
   { ... comandos finais ... }
  end;

  Abra um novo projeto, insira no formulário um Button:

Figura 1 – Projeto WhileDo

  Entre com o código em negrito no evento OnClick do componente BtnContar:

  A função Inc(x) captura o valor da variável x incrementa de 1 e coloca esse valor de volta em x. Para entender melhor imagine que x é igual a 3, após a função x será igual a x mais 1, escrevendo de outra maneira x ? x + 1, logo x ? 3 + 1 ou x ? 4.

  Nesse exemplo a variável x está sendo usada para controle da estrutura de repetição que inicia na linha 06 e termina na linha 10.

  O bloco de comandos será executado enquanto x for menor que 10. Quando x atingir 10 a linha 09 mostrará a mensagem "O valor atual de x é 10" e só então vai para a linha 11 e mostra a mensagem "Valor final de x é 10", logo o x com o valor 10 aparecerá duas vezes, uma dentro do loop e outra quando o loop é abandonado.