没有这样的函数
你可以自己编写代码删除!
var tmpint:integer;
tmpstr:string;
begin
tmpstr:='';
for tmpint:=1 to length(s) do
begin
if (s[tmpint]<>'$') or (s[tmpint+1]<>'4')then
tmpstr:=tmpstr+s[tmpint];
end;
s:=tmpstr;
end;
处理后的S就是除去"$4"的字符串
你可以自己编写代码删除!
var tmpint:integer;
tmpstr:string;
begin
tmpstr:='';
for tmpint:=1 to length(s) do
begin
if (s[tmpint]<>'$') or (s[tmpint+1]<>'4')then
tmpstr:=tmpstr+s[tmpint];
end;
s:=tmpstr;
end;
处理后的S就是除去"$4"的字符串
edit2.text:=s;
Edit2.Text := StringReplace(Edit1.Text, '$4', '', [rfReplaceAll]);
s:=edit2.text;