5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
7030 2000-07-27
- 打赏
- 举报
请看下面的函数,将回车符换成空格
function deleteenter(str:string):string;
var k:integer;
s1,s2:string;
begin
s2:=#$D#$A;
s1:=str;
k:=pos(s2,str);
if k=0 then result:=str
else
begin
s1:=str;
while k<>0 do
begin
s1:=copy(s1,1,k-1)+' '+copy(s1,k+2,length(str)-k);
k:=pos(s2,s1);
end;
end;
result:=s1;
end;
function deleteenter(str:string):string;
var k:integer;
s1,s2:string;
begin
s2:=#$D#$A;
s1:=str;
k:=pos(s2,str);
if k=0 then result:=str
else
begin
s1:=str;
while k<>0 do
begin
s1:=copy(s1,1,k-1)+' '+copy(s1,k+2,length(str)-k);
k:=pos(s2,s1);
end;
end;
result:=s1;
end;
茂奇软件 2000-07-27
- 打赏
- 举报
0x0d 0x0a
or
0x0a 0x0d
it depend on the operating system.
or
0x0a 0x0d
it depend on the operating system.
Firing_Sky 2000-07-27
- 打赏
- 举报
查查Ascii码手册吗,回车=chr(13)
wkan 2000-07-27
- 打赏
- 举报
#13#10
