O que usar MaskEdit ou Edit
Olá!
Tenho uma tela em meu sistema onde preciso fazer o sequinte:
o campo código deve ter sempre 4 caracteres, sendo que se o usuário digitar um código 47, por exemplo, quando sair do edit deverá aparecer automaticamente 0047, ou seja, sempre que for digitado códigos com menos de 4 caracteres, deverá ser preenchido com zeros a esquerda.
Gostaria de saber como fazer isto e qual o melhor componente a ser usado, MaskEdit ou Edit ???
Tenho uma tela em meu sistema onde preciso fazer o sequinte:
o campo código deve ter sempre 4 caracteres, sendo que se o usuário digitar um código 47, por exemplo, quando sair do edit deverá aparecer automaticamente 0047, ou seja, sempre que for digitado códigos com menos de 4 caracteres, deverá ser preenchido com zeros a esquerda.
Gostaria de saber como fazer isto e qual o melhor componente a ser usado, MaskEdit ou Edit ???
Bclr
Curtidas 0
Respostas
Rodrigo Costa
06/11/2003
Coloque o seguinte código no evento OnExit do Edit:
edit1.text:= stringofchar(´0´,4-length(edit1.text))+edit1.text;
GOSTEI 0
Rfpsatin
06/11/2003
Olá, vc tem várias formas de fazer isso. Porém, a + fácil é usando MaskEdit, pois vc já deixa formatado como ele tem q ficar.
+ da p´/ vc usar o FormatFloat tb.
no onexit do edit vc faz ele receber o valor formatado tiopo
edit1.text:=FormatFloat(´0000´,StrToFloat(Edit1.Text));
assim deve funcar tb, só da uma olhada no tipo de máscara a ser usada.
t+
abraço
+ da p´/ vc usar o FormatFloat tb.
no onexit do edit vc faz ele receber o valor formatado tiopo
edit1.text:=FormatFloat(´0000´,StrToFloat(Edit1.Text));
assim deve funcar tb, só da uma olhada no tipo de máscara a ser usada.
t+
abraço
GOSTEI 0
Bclr
06/11/2003
Valeu pessoal
Obrigado pela ajuda
Acabei usando a idéia do Rodrigo Costa, achei mais simples e me atendeu
Obrigado pela ajuda
Acabei usando a idéia do Rodrigo Costa, achei mais simples e me atendeu
GOSTEI 0