completar campo com zero a esquerda
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
Curtidas 0
Respostas
Datafron
03/04/2003
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;
GOSTEI 0
Flaviowmf
03/04/2003
ou
Edit.Text := FormatFloat(´0000´,StrtoInt(Edit.Text));
Edit.Text := FormatFloat(´0000´,StrtoInt(Edit.Text));
GOSTEI 0