completar campo com zero a esquerda
03/04/2003
0
Estou com um campo tipo char com 04 espacos, para ser alimentado por um contador numerico.
Preciso passar o valor para dentro deste campo acrescentando zeros a esquerda.
Ex: 0001, 0002...0010.
Alguem pode me ajudar?
Preciso passar o valor para dentro deste campo acrescentando zeros a esquerda.
Ex: 0001, 0002...0010.
Alguem pode me ajudar?
Anonymous
Curtir tópico
+ 0
Responder
Posts
03/04/2003
Datafron
No onExit do edit:
var S : string;
begin
FmtStr(S, ´¬.4d´, [StrToInt(Edit1.text)]);
Edit1.text := S;
end;
var S : string;
begin
FmtStr(S, ´¬.4d´, [StrToInt(Edit1.text)]);
Edit1.text := S;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)