Formato de numeros convertidos a texto

[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.