Fórum autoincrementar com zeros a esquerda --gt; 001, 002 etc.. #151142

Como crio a rotina de autoinc com zeros a esquerda? esta devera gravar na tabela com os zeros na esquerda. Tenho um codigo feito por mim, mas começa do 0 e nao do 1:

No evento OnNewRecord da tabela

var
Novo: string;
Atual: integer;
begin
Atual:= Tabela.RecordCount;
if Atual < 1 then Atual:= 0;
FmtStr(Novo, ´¬.4d´, [Atual]);
TabelaCODIGO.Value:= Novo;


** Onde CODIGO é o indice da tabela que ira receber os zeros a esquerda e ¬.4d o numero de zeros a esquerda

Este codigo, como disse, começa de 0 e nao de 1, ou seja, quando se pede um novo registro na tabela ele cria: 0000, 0001, 0002, 0003 etc..

quero criar 0001, 0002, 0003, 0004 etc..

Alguem ajude neste codigo??

Um abraço

Nelson

Favor postar o título em minúsculas
Moderador