如何把123456789变成123,456,789?

Question

UP

Answer 1

在DataSet中把其DisplayFormat 设为###,###.00

Answer 2

procedure                                                                     TForm1.Button1Click(Sender: TObject);
var
s1,s2:string;
l,j:integer;
begin
s1:=edit1.Text;
l:=length(s1);
s2:='';
for j:=1 to l do
begin
if (j mod 3)=0 then
s2:=s2+,;
s2:=s2+s1[j];
end;
edit2.Text:=s2;
end;

Answer 3

带小数位就写成这样：
FormatFloat('#,##0.00',123456789);
上句返回123,456,789.00

Answer 4

如果中间不是用‘，’隔开好象formatfloat不能解决啊

Answer 5

iValue: integer Format('%*.*n', [Length(IntToStr(iValue)), 0, iValue / 1]);

Answer 6

FormatFloat('#0,000',123456789);