Estrutura for

//para incrementar

Procedure btn click

var
x : integer;

begin
  //digita for e preciona tab que preenche as condições
  for x := 0 to 3 do
  begin
    ShowMessage ('Contador = ' +IntToStr(x));
    //Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa
  end;
end:


//para regredir

Procedure btn click

var
x : integer;

begin
  //digita for e preciona tab que preenche as condições
  for x := 3 downto 0 do
  begin
    ShowMessage ('Contador = ' +IntToStr(x));
    //Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa
  end;
end:



(dev iniciante - 19 5:45)





Procedure btn click

var
x : integer;

begin
  for x := 0 to 3 do
  begin
    ShowMessage (IntToStr(x));

    //Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa

   if x mod 2 = then continue; //se x dividido por 2 for 0 então... quer dizer que x é par e o continue faz saltar para o inicio do laço e não executa a mensagem inferior.

    ShowMessage ('Número Impar'); // se o if for falso não da o continue e exibe esta mensagem.

  end;
end:

(dev iniciante - 19 9:00)


Procedure btn click

var
x : integer;

begin
  for x := 0 to 3 do
  begin
    ShowMessage (IntToStr(x));

    //Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa

   if x mod 2 = then continue; //se x dividido por 2 for 0 então... quer dizer que x é par e o continue faz saltar para o inicio do laço e não executa a mensagem inferior.

    ShowMessage ('Número Impar'); // se o if for falso não da o continue e exibe esta mensagem.

    if x > 5 then break; // break sai do loop
  end;

    ShowMessage (Fim);

end: