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.