delphi 清理美元符号

function DeleteMoney(s : string):Currency;

var

  DD1 : string;

begin

  DD1 := StringReplace(s ,'￥','',[rfReplaceAll]); //处理美元符号

  Result := StrToCurrDef(  StringReplace( DD1 ,',','',[rfReplaceAll]),0 );

end;