Usar zeros a esquerda em autoincremento
01/04/2003
0
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
Posts
01/04/2003
Anonymous
procedure.....
var ZeroEsq: string;
Begin
ZeroEsq := ´00000´; //Não sei quantos zeros vai utilizar
Edit1.text := copy(ZeroEsq,1,5)+Seu Numero AutoInclemento
End;
01/04/2003
Anonymous
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
01/04/2003
Inutaishou
Clique aqui para fazer login e interagir na Comunidade :)