格式化数据为固定宽度字符串

现在有一个问题

我想显示固定长度的数据，比如7位，但是有可能是小数或整数，不知如何实现

举例：150.000  0.03000  12.3400   0012345

注：小数超过长度的，从后面四舍五入，取到7位为止（不考虑整数位超过7位情况）

function FixFormat ( const Width : integer ; const Value : Double ): string ; overload ;

var

  Len : integer ;

begin

  Len := Length ( IntToStr ( Trunc ( Value )));

  Result := Format ( '%*.*f' , [ Width , Width - Len , Value ]);

end ;

function FixFormat ( const Width : integer ; const Value : integer ): string ; overload ;

begin

  Result := Format ( '%.*d' ,[ Width , Value ]);

end ;