钱的问题 ( 积分: 100 )

在TStringGrid 中有个货币列 如:$365,456 要插到 一个货币字段中为什么大于1000的(既有逗号的)就报错,varchar 不能转换成numeric
有没有可以将$365,456 转换成365456 的函数啊

自己动手，丰衣足实啊。
function str_to_numb(s: string): string;
begin
if s[1]= '$' then
delete(s,1,1);

while pos(',',s)> 0 do
delete(s,pos(',',s),1);
result:= s;
end;

随手写的，没测试，你试试看。函数返回的是删去了$,逗号后的由纯数字组成的字符串。