Usar zeros a esquerda em autoincremento
Tenho uma duvida de um estudo meu, mas nao tirar da cabeça heheehe
Tenho um campo chamado ID que é autoincrementado e um campo CODIGO do tipo texto, gostaria que ao criasse um novo registro fosse mostrado num Edit o valor do ID + zeros à esquerda. Ex:
ID = 1
Edit = 0001
ID = 2
Edit = 0002
etc...
Entao, em todo registro novo ele localize o ID atual, faça uma cópia do mesmo e coloque zeros à esquerda, mostrando assim num edit o valor final.
Um abraço e agradeço muito!
Nelson
Favor postar o título em minúsculas , conforme as regras de conduta
Obrigado
Moderador
Tenho um campo chamado ID que é autoincrementado e um campo CODIGO do tipo texto, gostaria que ao criasse um novo registro fosse mostrado num Edit o valor do ID + zeros à esquerda. Ex:
ID = 1
Edit = 0001
ID = 2
Edit = 0002
etc...
Entao, em todo registro novo ele localize o ID atual, faça uma cópia do mesmo e coloque zeros à esquerda, mostrando assim num edit o valor final.
Um abraço e agradeço muito!
Nelson
Favor postar o título em minúsculas , conforme as regras de conduta
Obrigado
Moderador
Anonymous
Curtidas 0
Respostas
Anonymous
01/04/2003
tente o seguinte
procedure.....
var ZeroEsq: string;
Begin
ZeroEsq := ´00000´; //Não sei quantos zeros vai utilizar
Edit1.text := copy(ZeroEsq,1,5)+Seu Numero AutoInclemento
End;
procedure.....
var ZeroEsq: string;
Begin
ZeroEsq := ´00000´; //Não sei quantos zeros vai utilizar
Edit1.text := copy(ZeroEsq,1,5)+Seu Numero AutoInclemento
End;
GOSTEI 0
Anonymous
01/04/2003
[quote:f0a0572888=´Isandro Ribeiro´]tente o seguinte
procedure.....
var ZeroEsq: string;
Begin
ZeroEsq := ´00000´; //Não sei quantos zeros vai utilizar
Edit1.text := copy(ZeroEsq,1,5)+Seu Numero AutoInclemento
End;[/quote:f0a0572888]
Sim, mas quem seria o numero autoincrementado? deve-se localizar o mesmo antes de converter!! :(
Se ainda puder ajudar agradeço também!!
Um abraço
procedure.....
var ZeroEsq: string;
Begin
ZeroEsq := ´00000´; //Não sei quantos zeros vai utilizar
Edit1.text := copy(ZeroEsq,1,5)+Seu Numero AutoInclemento
End;[/quote:f0a0572888]
Sim, mas quem seria o numero autoincrementado? deve-se localizar o mesmo antes de converter!! :(
Se ainda puder ajudar agradeço também!!
Um abraço
GOSTEI 0
Inutaishou
01/04/2003
O que você quer saber??? como completar o campo com um determinado numero de zeros à esquerda???
GOSTEI 0