Begin ... End

Isola ou separa um bloco de código. Geralmente utilizado com os blocos de controle IF, CASE e WHILE.

Exemplo de uso:

Begin

   Descricao := Capitalize( Produto['Descricao'] );

   Valor := Vendas['Qtde Venda'];

End;


Case ... Of..  Else .... End

Compara um valor com o presente na lista informada e executa o código correspondente. Se nenhum valor da lista corresponder ao valor informado, então será executado o código após a instrução ELSE.

Exemplo de uso:

Case Produtos['Status'] Of

   1: Status_Produto := 'Comercialização normal';

   2: Status_Produto := 'Não deve ser vendido';

   3: Status_Produto := 'Comercialização suspensa';

   4: Status_Produto := 'Não é mais vendido';

   5: Status_Produto := 'Em pesquisa / desenvolvimento';

else

   Status_Produto := 'Status Ignorado';

End;


For ... to

Executa um bloco de código um número determinado de vezes (exige a declaração de uma variável do tipo inteiro). A variável será acrescida de 1 a cada interação até chegar ao valor informado. Se for necessário inserir mais de uma linha de código que deverá ser executada, então você deverá colocá-las entre BEGIN e END.

Exemplo de uso:

var

   Contador: Integer;

   Total_Impostos: Extended;

Begin

   Total_Impostos := 0;

   For Contador:= 1 to 6 do

       Total_Impostos := Vendas['Vlr_Imp_'+IntToStr(Contador)] *

                        Vendas['Qtde Venda];

End;


For ... downto

Executa um bloco de código um número determinado de vezes (exige a declaração de uma variável do tipo inteiro). A variável será decrementada em 1 a cada interação até chegar ao valor informado. Se for necessário inserir mais de uma linha de código que deverá ser executada, então você deverá colocá-las entre BEGIN e END.

Exemplo de uso:

var

   Contador: Integer;

   Total_Impostos: Extended;

Begin

   Total_Impostos := 0;

   For Contador:= 6 downto 1 do

       Total_Impostos := Vendas['Vlr_Imp_'+IntToStr(Contador)] *

                        Vendas['Qtde Venda];

End;


If ... Then ... Else

Executa o primeiro bloco de código se a condição informada for verdadeira. Se a condição for falsa, será executado o bloco de código após o else. Se for necessário inserir mais de uma linha de código que deverá ser executada, então você deverá colocá-las entre BEGIN e END. A linha/bloco após o Then não pode ser finalizada com ; se houve uma cláusula Else no código.

Exemplo de uso:

If Venda['Vista ou Prazo'] = 'V' Then

   Tipo_Venda:='Venda à Vista'

Else

   Tipo_Venda:='Venda a Prazo';


Repeat ... Until

Executa um bloco de código até a condição informada ser verdadeira.

Exemplo de uso:

var

   Contador: Integer;

   Total_Impostos: Extended;

Begin

   Total_Impostos := 0;

   Contador:= 1;

   Repeat

       Total_Impostos := Vendas['Vlr_Imp_'+IntToStr(Contador)] *

                        Vendas['Qtde Venda];

      Contador := Contador + 1;

   Until Contador >= 6;

End;


While ... do

Executa um bloco de código enquanto a condição informada ser verdadeira. Se for necessário inserir mais de uma linha de código que deverá ser executada, então você deverá colocá-las entre BEGIN e END.

Exemplo de uso:

var

   Contador: Integer;

   Total_Impostos: Extended;

Begin

   Total_Impostos := 0;

   Contador:= 1;

   While Contador <= 6 do Begin

       Total_Impostos := Vendas['Vlr_Imp_'+IntToStr(Contador)] *

                        Vendas['Qtde Venda];

      Contador := Contador + 1;

   End;

End;