如何将123,456,789.12格式化成123456789.12？

Question

如何将123,456,789.12格式化成123456789.12？

Answer 1

用copy函数＋delete函数
或者copy函数＋pos函数

Answer 2

自己写个函数删除记号‘，’不就行了
VAR whatstring: string;
 ..........
while whatstring<>'' do
begin  
    svalue:=getlstring(whatstring,',');
    listbox1.additems.add(svalue);
end
getlstring 代码
function getlstring(var s:string;subbst:string):string;
var i integer;
begin
i:=pos(subbst,s);
if i<>0 then
begin
  result:=copy(s,1,i-1);
  s:=copy(s,j+length(subbst),length(s));
end
else
begin
  result=s;
  s:='';
end;
end;

Answer 3

AnsiReplaceStr(const AText, AFromText, AToText: string): string;