Quantidade de Casas Decimais

Delphi

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

Salupe

Curtidas 0

Respostas

Rjun

Rjun

30/08/2005

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;



GOSTEI 0
POSTAR