Incremento de número com zeros a esq.

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