我想把下列字符串中的的字串'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;
大伙看看是什么问题啊???
字符串: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;
大伙看看是什么问题啊???
你自己看看帮助,很简单的
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;
begin
str := StringReplace(str, ' ', '', [rfReplaceAll]); //去空格
str := StringReplace(str, #7, '', [rfReplaceAll]);
str := StringReplace(str, #13#10, '', [rfReplaceAll]);
end;
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;
马上给分!