Como usar while no Delphi?

No inicio do estudo em qualquer linguagem de programação é normal buscarmos as funcionalidades básicas da linguagem, entre elas: tipos, sintaxes, IDE, e laços de repetição.

Neste post vou mostrar como usar a estrutura de repetição while.

Basicamente o while é um laço de repetição que executa o código em seu bloco até que uma determinada condição seja falsa, caso contrário continuará executando as instruções no bloco.

Veja o esboço abaixo:

while (condição = verdadeira) do

begin  < bloco de código>

end ;

Vemos no esboço acima que a função while possui um cabeçalho onde é verificada uma determinada condição, e caso ela seja verdadeira, o bloco de código (entre begin e end;) será executado.


Veja o exemplo abaixo:

var
   numero: integer ;
begin
      
      numero := 0 ;
      while numero < 10 do
      begin
           numero := numero + 1 ;
      end ;

end ;

no exemplo apresentado acima, foi declarada uma variável inteira cujo nome é "numero".
Antes do loop esta variável recebe o valor '0' (zero) e então o while começa.
É verificado se a variável "numero" é menor que '10' (dez), caso seja, então a variável "numero" recebe o valor dela mesma mais '1' (um).
Em um determinado momento o valor em 'numero' será igual ou superior à '10' (dez), neste momento o laço while não será mais executado.

Espero que seja útil!

Até+