没有,自己写一个吧, 如下所示,
function MoneyToDouble(sInput :string): double;
var
sTemp : string;
i, nLen : integer;
begin
sTemp:='';
nLen :=length(sInput);
for i:=3 to nLen do
begin
if sInput<>',' then sTemp :=sTemp+sInput;
end;
Result:=StrToFloat(sTemp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ddd: double;
begin
ddd:=MoneyToDouble('￥1,234.00');
showmessage(floattostr(ddd));
end;
