Função de incrementação e decrementação no Delphi?

Em alguns casos durante a programação é comum surgir a necessidade de incrementar o valor de uma determinada variável.

Nestas situações é normal usarmos a seguinte técnica:

<variável> := <variável> + 1 ;

Porém, no Delphi existe uma função chamada inc que faz isso pra nós, ou seja, ela faz a incrementação do valor na variável.

Esta função possui os seguintes parâmetros:

inc( var X: Ordinal; [ N: integer ] )

como podemos perceber, a função aguarda um número à ser incrementado, e existe a possibilidade de informar o valor que será incrementado.


Exemplo:

var   numero: integer ;
begin   numero := 0 ;
   showmessage( intToStr( numero ) ) ;
   inc( numero ) ;
   showmessage( intToStr( numero ) ) ;
end ;

No exemplo acima, é declarada uma variável chamada "numero" do tipo inteiro. Esta variável recebe o valor '0' (zero), e então é exibida uma mensagem ao usuário apresentado o valor da variável "numero":

Posteriormente usamos a função inc para incrementar o valor da variável "numero", na sequência é apresentado novamente o valor da variável "numero", desta vez o número '1' (um) visto que a função inc aumentou em '1' (um) o valor da variável:

Em relação ao processo de decrementação, o comum é fazermos isto:

<variáve> := <variável> - 1 ;

Porém, também existe a função dec, que tem funcionamento similar à inc, porém, esta função subtrai o valor da variável.

Exemplo:

var   numero: integer ;
begin   numero := 1 ;
   showmessage( intToStr( numero ) ) ;
   dec( numero ) ;
   showmessage( intToStr( numero ) ) ;
end ;

No exemplo acima, é declarada uma variável chamada "numero" do tipo inteiro, na sequência, esta variável recebe o valor '1' (um) e então a variável "numero" é submetida à função dec, na sequência é exibida a mensagem ao usuário e então poderemos ver que o valor passou para '0' (zero), visto que a função dec retira '1' (um) da variável a cada iteração.

Espero que seja útil.

Até+