如题目所示,如果在一个字符串中如'A&C0'中,存在'&'字符,而且不知道'&'存在在字符串中的哪一位置,现在想把该'&'字符删除,使获得的字符串不存在'&'字符,该如何处理?请大家帮帮忙,马上给分!

解决方案 »

  1.   

    在public下写
    Function delstr(str,delstr:string):string;//Function Tform1.delstr(str,delstr:string):string; //str是你'A&C0' ,delstr传的是&字符
    Var
    newstr:string;
    i:integer;
    begin
      For i:=0 to length(str);
       if str[i]<>delstr Then
       newstr:=newstr+str[i];  result:=newstr;
    end;在程序里调用
    procedure Tform1.button1click(sender:objects);
    begin
     showmessage(delstr('A&C0'),'&');
    end;
      

  2.   

    s := 'A&C0';
    s := StringReplace(s, '&', '', [rfReplaceAll]);
      

  3.   

    var c:string; n:integer;
    begin
    n:=post('&','A&C0');      //n:=2
    c:=delete('A&C0',n,1);   // c:='ACO'
    end;