var
i:integer;
s:string;
.....
i:=0;
i:=pos('#10#13',s);
while i>0 do
begin
delete(s,i,2);//请问‘#10#13’回车换行,为几个字符,是一个整体吗?
i:=pos('#13#10',s);
end;
这么做可以删掉S中的换行符吗?还是应该把#10和#13分开处理???
i:integer;
s:string;
.....
i:=0;
i:=pos('#10#13',s);
while i>0 do
begin
delete(s,i,2);//请问‘#10#13’回车换行,为几个字符,是一个整体吗?
i:=pos('#13#10',s);
end;
这么做可以删掉S中的换行符吗?还是应该把#10和#13分开处理???
解决方案 »
- 高分求助: 解析机床 NC 文件问题
- jinjazz 大哥在吗?麻烦您进来帮我解决一下这个SQL问题,小弟万分感谢!
- 二进制文件 读取操作 大家帮我看看有没有问题?
- 分布式的程序socket连接不上,DCOM可以
- 帮朋友问问学DELPHI看什么书,没有遍程基础,请顺便提供电子书籍下载,谢谢!100分
- 各位朋友,真的不能实现ms xml3.0的功能吗?会这种的朋友请帮助.我的原代码如下:
- mm一点也不主动,有点没意思
- 怎么取最后10天的数据资料··delphi
- .net调不起delphi5写的dll。寻求高手解决,急
- 关于客户端传递参数到中间层的问题!
- 在太原能找到好的D程序员吗?
- 怎样给richedit边框画成黑线?(在线)
var
i:integer;
s:string;
.....
i:=0;
i:=pos(#10+#13,s);
while i>0 do
begin
delete(s,i,2);
i:=pos(#13+#10,s);
end;