autoincrementar com zeros a esquerda --gt; 001, 002 etc..

Delphi

01/04/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Emersonmychel

Emersonmychel

01/04/2003

Amigo Nelson,

Não sei se entendi direito mas voce ja tentou

if Atual < 1 then Atual:= 1;

Será que assim não funciona? o codigo gerado não seria 0001?


GOSTEI 0
Anonymous

Anonymous

01/04/2003

Amigo Nelson, Não sei se entendi direito mas voce ja tentou if Atual < 1 then Atual:= 1; Será que assim não funciona? o codigo gerado não seria 0001?


Realmente faz com que acrescente 0001 ao invez de 0000, porem ele cria dois 0001 ou seja:

0001
0001
0002
etc..

:cry:


GOSTEI 0
Dli

Dli

01/04/2003

Por que ao invés de um campo autoinc voce nao controla isto através de um campo I e vai incrementando esse via programa e com o formato que você quiser?

[]´s

dli


GOSTEI 0
POSTAR