Incremento de número com zeros a esq.

[leonardonobre 0]

Caros,

estou portando um sistema em delphi que utilizou uma gambiz como chave primária. Ela é usada em todo o sistema.

 

O formato e o seguinte:

 

000000 e vai incrementando 000001, 000002, 000156, 001234, etc.

Eu estava tentando a lógica a seguir, é a melhor maneira na opinião de vocês?!

 

[code

$var = "000005"; // A variavel que vem do banco de dados.

$var += 0; // retirar os zeros a esquerda do númrero

$var = $var + 1; // simar mais um ao número

$teste = "000" . $var; // inserir os zeros necessários

echo $teste; // mostrar o número já 'crementado'(rs) e com os zeros.

[/code]

 

Desculpem não escrever em portugol ou no algoritmo, porém creio que não é nada muito complexo para tanto.

 

É isso,

Abraços,

Léo

[Dennys Lopes 0]

em VB eu faria desse jeitovar = "000005"var = val(var) + 1'// O resultado será 6 sem os 0'svar = Format("000000", var) '// Coloca os 0'Ai qualquer coisa passa pra Delphi e ve o que que dá !