我想把下列字符串中的的字串'0D0A'删除掉,也就是把回车换行去掉。
字符串:4F4B0D0A0D0A2B434D543A202C32320D0A30383931363833313038353035393035463032343044393136383331303539353432313846323030303833303131313239303434363432333032373638340D0A
以下是我写的程序,但不起作用,删不了。
procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
  s,s1,s2:string;
begin
   s:=edit1.Text ;
   s2:='';
   i:=1;
   while i<=length(s ) do
    begin
      s1:=s[i]+s[i+1];
      if (s1<>'0D') OR (s1<>'0A') then
       begin
        s2:=s2+s1;
        inc(i,2);
       end
       else
      inc(i,2);
    end;
  edit3.Text :=s2;
end;
大伙看看是什么问题啊???

解决方案 »

  1.   

    不是有个函数delete();
    你自己看看帮助,很简单的
      

  2.   

    procedure TForm1.Button2Click(Sender: TObject);
    var
      i:integer;
      s,s1,s2:string;
    begin
       s:=edit1.Text ;
       s2:='';
       i:=1;
       while i<=length(s ) do
        begin      s1:=s[i]+s[i+1];
          if (s1<>'0D') and (s1<>'0A') then
           begin
            s2:=s2+s1;
            inc(i,2);
           end
           else
            inc(i,2);
        end;
      edit3.Text :=s2;
    end;
      

  3.   

    procedure TForm1.RemoveSpace(Str: String);
    begin
      str := StringReplace(str, ' ', '', [rfReplaceAll]); //去空格
      str := StringReplace(str, #7, '', [rfReplaceAll]);
      str := StringReplace(str, #13#10, '', [rfReplaceAll]);
    end;
      

  4.   

    var
      i:integer;
      s:string;
    begin
      s:='4F4B0D0A0D0A2B434D543A202C32320D0A30383931363833313038353035393035463032343044393136383331303539353432313846323030303833303131313239303434363432333032373638340D0A'
      While pos('0D0A',s)<>0 do
      begin
            i:=pos('0D0A',s);
            if i<>0 then
                    Delete(s,i,4);
      end;
      result:=s;
    end;
      

  5.   

    呵呵,解决了。竟然犯了个弱智的错误,谢谢 lxhong1980 还有 hongqi162
    马上给分!