没有这样的函数
你可以自己编写代码删除!
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"的字符串

解决方案 »

  1.   

    我看这个比较方便吧~~For Delphi 6Edit2.Text := StringReplace(Edit1.Text, '$4', '', [rfReplaceAll]);
      

  2.   

    随后的好办法!
    edit2.text:=s;
    Edit2.Text := StringReplace(Edit1.Text, '$4', '', [rfReplaceAll]);
    s:=edit2.text;
      

  3.   

    CoolSlob(我心迷茫)的方法真不错,但不知Delphi5中是否也有这个功能
      

  4.   

    现在都快出DELPHI7了,有谁还在使用5的吗?