有什么办法能把文本文件中的一个空行给删除
我试过使用memo.lines.delete[i]
但是最后还是有一个空行，
有什么办法可以解决的啊？
upfile :Tstringlist; 我用这个语句的时候自动给文本加了一个回车，
所以最后总有个空行，
upfile.add(str);
问题点数：100、回复次数：12Top
1 楼Eastunfail（龍子龍孫) (Serpent's Embrace）回复于 2003-01-04 22:16:49 得分 30
var s:string;
begin
...//Do some initializing-like stuff
s=StringReplace(s,#13#10#13#10,[rfIgnoreCase,rfReplaceAll]);
...//Here the s have no continuous blank line any more
//But if some blanks have spaces or other unprintable symboles, it is useless.
end;
Another solution, iteratively compare each line, delete the line that trimed is equal to empty string.Top
2 楼dy_kiss（龙之天涯）回复于 2003-01-04 22:24:03 得分 0
兄弟你这说的是什么啊？？？
怎么我发的东西掉了一半？
upfile:Tstringlist;
我用下面语句的时候自动的就添加了一个回车了
所以最后总有个空行应该怎么删除啊
upfile.add(str)
是不是CSDN出问题啊
怎么帖子只显示一半啊？Top
3 楼dy_kiss（龙之天涯）回复于 2003-01-04 22:27:23 得分 0
怎么连我自己发的贴都只能看见第一行啊？Top
4 楼dy_kiss（龙之天涯）回复于 2003-01-05 10:20:57 得分 0
晕是我这机器有问题还是CSDN？ 今天还是只能看见第一行。。。Top
5 楼ghyghost（爱国人士-许愿池里的希腊老石头）回复于 2003-01-05 11:26:53 得分 0
我发过的贴子有的也是显示第一行，，晕，，，，我的专家分！！Top
6 楼wjlsmail（小脖领）回复于 2003-01-05 12:48:34 得分 30
StringReplace(Memo1.Text,#1310#1310,#13#10,[rfReplaceAll]) ;
Top
7 楼wjlsmail（小脖领）回复于 2003-01-05 12:49:56 得分 0
StringReplace(Memo1.Text,#13#10#13#10,#13#10,[rfReplaceAll]) ;
Top
8 楼dy_kiss（龙之天涯）回复于 2003-01-05 14:23:46 得分 0
这个我试过了，但是我的意思是只想去掉最后一个空行，这个样子
就把所有的回车都去掉了，只有一行数据了
Top
9 楼pazee（耙子)(今年过年不收礼，收礼只收尿不湿）回复于 2003-01-05 14:48:49 得分 30
回车你不应该理解为每一行的行首，应该理解为上一行的行末。
所以你最后一行那个不算空行。
如果你按照一行一行的读出来是不会在末尾得到一个空行的。
Top
10 楼wjlsmail（小脖领）回复于 2003-01-05 15:36:35 得分 0
所有字符要放在一行可以取出每行字符串再相加 ，是不是这个意思 ？
Top
11 楼Eastunfail（龍子龍孫) (Serpent's Embrace）回复于 2003-01-05 20:26:42 得分 10
var s:string;i:integer;
begin
s:=memo1.text;
i:=length(s);
while (s[i]=#10) or (s[i]=#13) do
begin
i:=i-1;
s:=copy(s,1,i);
end;
memo1.text:=s;
end;Top
12 楼dy_kiss（龙之天涯）回复于 2003-01-06 22:01:24 得分 0
我的意思就是我有三个文本文件要合再一起进行传输
但是没个文件之间由于有空行，所以不符合要求
所以要求去掉最后一行的回车，我用的是MEMO
楼上的那些办法斗没有办法去掉最后那个回车
： pazee(耙子) (的说明就是我的意思）
回车你不应该理解为每一行的行首，应该理解为上一行的行末。
所以你最后一行那个不算空行。
如果你按照一行一行的读出来是不会在末尾得到一个空行的。Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
