delphi - TStringList和SaveToFile:字符串完成后，如何告诉我换行？

Question

我正在使用TStringList和SaveToFile。字符串完成后，如何告诉我换行？
通常，TStringList中包含的所有字符串仅保存在一行中。如何在完成字符串时告诉列表将回车符放进去，而需要将其他字符串放在换行符中？

字符串的格式为：

'my text....' + #10#13

Answer 1

如果要像上面用'my text....' + #10#13 + 'other text...'所示那样编写字符串，则问题是行尾字符颠倒了。在Windows上，它们应为#13#10（或仅使用sLineBreak常量）。

这是一个快速的应用程序（Delphi XE2），演示了该对的不良顺序将导致问题，并提供了一种解决方法：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('This is a test string' + #10#13 + 'This is another test string');
    SL.SaveToFile('C:\Test\BadLFPair.txt');

    SL.Clear;
    SL.Add('This is a test string'+ #13#10 + 'This is another test string');
    SL.SaveToFile('C:\Test\BadLFPairFix.txt');
  finally
    SL.Free;
  end;
end.

在记事本中打开时，第一个将产生：

This is a test stringThis is another test string

第二：

This is a test string
This is another test string