Cita:
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 Result:= StringOfChar(' ', Spc - Trunc(Ln(Num)/Ln(10))+1) + FormatFloat('0.' + StringOfChar('0',Ceros), Num)
else 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.