平 平凡牛 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-06 #1 如果一个文本文件中全部是数字,那么用什么方法可以使文本文件中每隔三个数字添加一个逗号作为分隔符,如文本文件是565674645656235256565963409..........,那么现在怎么样编程使得文本文件以565,674,645,656,235,256,565,963,409这种格式出现．
如果一个文本文件中全部是数字,那么用什么方法可以使文本文件中每隔三个数字添加一个逗号作为分隔符,如文本文件是565674645656235256565963409..........,那么现在怎么样编程使得文本文件以565,674,645,656,235,256,565,963,409这种格式出现．
M mengtao123 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-06 #2 采用formatfloat('0,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000.000',var)
D dinglj1760 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-07 #4 循环就可以搞定了的。 Const S='565674645656235256565963409'; var a:string; I:integer; begin for I:=1 to Round(Length(S) mod 3) do begin a:=a+','+RightStr(LeftStr(S,I*3),3); end; a:=Copy(a,2,MaxInt); end; //随手写的。估计可以吧
循环就可以搞定了的。 Const S='565674645656235256565963409'; var a:string; I:integer; begin for I:=1 to Round(Length(S) mod 3) do begin a:=a+','+RightStr(LeftStr(S,I*3),3); end; a:=Copy(a,2,MaxInt); end; //随手写的。估计可以吧
平 平凡牛 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #5 非常感谢dinglj1760,同时感谢mengtao123和nantwww
