Question

DELPHI TStringList.SaveToFile('.\cba.txt'); 生成的文本多了一个回车？

用 TStringList.LoadFromFile('.\abc.txt'); 读了一个文件
再用 TStringList.SaveToFile('.\cba.txt'); 生成文件，结果却多了一个回车
比如 abc.txt 是这样的
abcdefg(换行符)
hijklmn(没有换行符)
用SaveToFile输出后就是
abcdefg(换行符)
hijklmn(换行符)

输出后多了一个换行啊怎么回事？如何解决这一问题呢？我是做PHP开发的，对DELPHI比较业余，我想做一个多文件字符替换的工具，PHP文件中被<? ?>包括，如果?>后多了一个回车，再被INCLUDE包含后，PHP的HEADER（）函数会报错，所以，一个字符都不能差，所以希望高手指点下，如何去掉多的那个换行符

Answer 1

用TFileStream再打开下，删除这个回车再保存。
或者直接用TFileStream读写文件。
或者尝试下TStringStream试试看。

Answer 2

在delphi中可以用Trim()函数去掉首尾空格、回车换行符。

Answer 3

var
str: string;
begin
Str := StringReplace(Str, #13#10, '', [rfReplaceAll]);

Answer 4

建议使用文件操作函数来创建文件和写入内容。

Answer 5

用list的savetofile是这样的。只有考虑用其它方法访问、保存txt文件。