一个数字转换的问题！

Question

各位高手，如何将一个数字字符串转换为以下：
       字符串：  1111111
   要求转换为：  1，111，111.00
请问有没有这样的一个函数啊？

Answer 1

ShowMessage(FormatFloat('#,##0.00', 11111111));

Answer 2

FormatFloat('#,##0.00', 11111111));

Answer 3

function changedigital(number:string):string;
var
  I,L,M:Integer;
  s:string;
begin
  Result:='';
  L:=Length(number);
  M:=L mod 3;
  for I:=0 to (L div 3)-1 do
  begin
    s:=copy(number,I*3+M+1,3)+',';
    Result:=Result+s;
  end;
  if M<>0 then
    Result:=copy(number,1,M)+','+copy(Result,1,Length(Result)-1)+'.00'
  else
    Result:=copy(Result,1,Length(Result)-1)+'.00';
end;

Answer 4

还是FormatFloat('#,##0.00', 11111111));好用!