Formato de numeros convertidos a texto

[ecfisa]

Hola Anel.

No existe una función o procedimiento predeterminado que realice lo que buscas. Se necesitan al menos dos pasos, como en el código que te puse arriba, para poder lograrlo.

Por supuesto que podés crearte una:

Código Delphi [-]
function FormatNum(const Num: Double; const Mask: string; const Spc: Integer): string;
begin
   Result:= StringOfChar(' ', Spc - Length(Copy(Result, 1, Pos(DecimalSeparator, Result)-1))) + FormatFloat(Mask, Num);
end;

Uso:

Código Delphi [-]
 Label1.Caption:= FormatNum(5.1, '0.000', 5);

Saludos.

[Anel Hernandez]

gracias ecfisa,

y si kisiera que el numero de ceros detras fuera variable? como puedo poner un mask variable? es decir que en vez de entrarle una mascara string le entre un byte con la cantidad de ceros ke kisiera.

:=FormatNum(5.1, 3, 5)?

mil gracias por tu ayuda!

[Anel Hernandez]

ecfisa,

he estado probando la funcion y si el numero es entero la posicion del separador da cero y no da un buen resultado. Me parece que seria mejor contando la parte entera:
-Length(floattostr(trunc(num)))

Quedaria solo poderle poner a la funcion la cantidad de ceros decimales a elegir.

mil gracias

[ecfisa]

Empezado por Anel Hernandez

gracias ecfisa,

y si kisiera que el numero de ceros detras fuera variable? como puedo poner un mask variable? es decir que en vez de entrarle una mascara string le entre un byte con la cantidad de ceros ke kisiera.

:=FormatNum(5.1, 3, 5)?

mil gracias por tu ayuda!

Hola.

Código Delphi [-]
function FormatNum(const Num: Double; const Ceros: Byte; const Spc: Integer): string;
begin
  if Round(Num) <> Num then  // flotante
    Result:= StringOfChar(' ', Spc - Trunc(Ln(Num)/Ln(10))+1) + FormatFloat('0.' + StringOfChar('0',Ceros), Num)
  else                       // entero
    Result:= StringOfChar(' ', Spc - Trunc(Ln(Num)/Ln(10))+1) + IntToStr(Trunc(Num)) + StringOfChar('0', Ceros);
end;

Llamada ejemplo:

Código Delphi [-]
   ShowMessage(FormatNum(123.1, 5, 0) + #10#13 + FormatNum(2, 5 , 3));

Saludos.