Zeros em números não inteiros e com máscara???
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
Curtidas 0
Respostas
Mabh
19/08/2003
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;
GOSTEI 0