F�rum Quantidade de Casas Decimais #293753

30/08/2005

Uso Delphi 6 e Firebird 1,5

Preciso definir de alguma forma quantas casas decimais um valor vai ter, independente do valor indicado, a quantidade vai determinada pelo usuario.
Fiz essa rotina mas acho que deva ter algo mais r�pido, ser� que alguem conheceria uma maneira mais r�pida, alguma fun��o ou algo do tipo.

if Decimais = 1 then
EditPreco.Text := FormatCurr(�,0.0�, StrToCurr(PRINCIPAL.Remove(EditTotal.Text)) / QueMapaPrecosQUANT.Value);

else if Decimais = 2 then
EditPreco.Text := FormatCurr(�,0.00�, StrToCurr(PRINCIPAL.Remove(EditTotal.Text)) / QueMapaPrecosQUANT.Value);

else if Decimais = 3 then
EditPreco.Text := FormatCurr(�,0.000�, StrToCurr(PRINCIPAL.Remove(EditTotal.Text)) / QueMapaPrecosQUANT.Value);

else
EditPreco.Text := FormatCurr(�,0.0000�, StrToCurr(PRINCIPAL.Remove(EditTotal.Text)) / QueMapaPrecosQUANT.Value);

Agrade�o antecipadamente qualquer ajuda.

Sandro

Salupe

Curtir t�pico

+ 0

Responder

Posts

30/08/2005

Rjun

O que voc� pode fazer � criar um fun��o q te retorne a mascara.

function Mascara(NumeroCasas: Integer): string;
var
  i: Integer;
begin
  result := �0.�;
  for i := 1 to NumeroCasas do
    result := result + �0�;
end;

Responder

Gostei + 0