Fórum Zeros em números não inteiros e com máscara??? #175841
19/08/2003
0
Preciso saber como adicionar zeros a esquerda de numeros NÃO INTEIROS e com máscara 99,99. Por Exemplo: Quando eu digito 5_,__ dá erro, pois estou obrigado a digitar 05,__. Alguém sabe me dizer como adicionar o zero a esquerda de um número com essa máscara? Desde já agradeço.
Tiago Tadeu
Tiago Tadeu
Tiagotadeu
Curtir tópico
+ 0
Responder
Posts
19/08/2003
Mabh
Use a máscara desta forma ´99,99;1;0´ e se precisar converter o resultado use este exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
x: Real;
begin
x := StrToFloat(MaskEdit1.Text);
ShowMessage(FloatToStr(x));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x: Real;
begin
x := StrToFloat(MaskEdit1.Text);
ShowMessage(FloatToStr(x));
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)