去掉数字中的逗号分隔符。急等

Question

使用了FormatFloat('#,###,###,###.00',String)给数字加了逗号分割符，请问如何去掉逗号分隔符，使字符串转化回数字类型呢？急等——望提供源代码，是不是用delete?

Answer 1

一个一个把逗号pos到，去掉它，即可

Answer 2

//==================================================================
//   功能:  分割字符串用一个特定的字符
//   参数:  buf:string
//              需要分割的字符
//   返回值:分割好的字符串列表
//------------------------------------------------------------------Function Split(Buf: string): TStringList;
var
  i:integer;
  Strlist:TStringList;
  site:integer;
begin
Strlist:=Tstringlist.Create;
site:=1;
for i:=1 to length(buf) do
begin
  if buf[i]=',' then
  begin
    strlist.Add(copy(buf,site,i-site));
    site:=i+1;
  end;
end;
strlist.Add(copy(buf,site,i));
Result:=strlist;
end;

Answer 3

用DELETE去掉',',然后用strtofloat()转过来就行了:
   function dd(s:string):string;
   var posl:integer;      
          begin
            while Pos(',',S)>0
               begin
                 posl:=Pos(',',S);   
                 delete(s,posl,1);
               end;
            result:=s;
      end;

Answer 4

不好意思,上面的WHILE语句忘记加DO了...