销售管理软件版1楼: 我用stringgrid做输入表单时，55859523.66以55,859,523.66显示．该怎么办．

2楼: 写个函数自己转换吧 如济南进销存管理系统

3楼: to:chengangsi兄: 怎么写!!!!

4楼: 用 FormatFloat

5楼: procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2,s3:string;
p,l:integer;
begin
s1:=＇＇55859523.66＇＇;
p:=pos(＇＇.＇＇,s1);
if p=0 then
p:=length(s1);
s2:=copy(s1,p,length(s1)-p);
s1:=copy(s1,1,p-1);
while l>3 do
begin
l:=length(s1);
s3:=＇＇,＇＇+copy(s1,l-2,3)+s3;
delete(s1,l-2,3)
end;
s3:=copy(s3,2,length(s3))+s2;
edit1.Text := s3;

end;
//凑合一个，别见笑

6楼: StringGrid没有自动的转换功能
你给它什么它就显示什么
只能自己处理了

销售管理软件版7楼: 臧马兄的这个好使
edit1.Text :=formatfloat(＇＇#,##0.00＇＇,55859523.66);

8楼: 非常感谢weichao9999的支持，但是偶说的是在stringgrid 显示或输入数据