字符串内的换行符显示在 TMemoBox 上

Question

我正在构建一个名为 FullMemo 的 String ，它将显示在 TMemoBox 上，但问题是我正在尝试创建换行符像这样：

FullMemo := txtFistMemo.Text + '\n' + txtDetails.Text

我得到的是 txtFirstMemo 字符 \n 的内容，而不是换行符，以及 txtDetails 的内容。我应该怎么做才能使换行工作？

Answer 1

解决方案是使用 #13#10 或更好的 Sertac 建议 sLineBreak。

FullMemo := txtFistMemo.Text + #13#10 + txtDetails.Text;
FullMemo := txtFistMemo.Text + sLineBreak + txtDetails.Text;

Answer 2

一个更加独立于平台的解决方案是TStringList。

var
  Strings: TStrings;
begin
  Strings := TStringList.Create;
  try
    Strings.Assign(txtFirstMemo.Lines); // Assuming you use a TMemo
    Strings.AddStrings(txtDetails.Lines);
    FullMemo := Strings.Text;
  finally
    Strings.Free;
  end;
end;

要添加空换行符，您可以使用：

Strings.Add('');

Answer 3

使用

FullMemo := txtFistMemo.Text + #13#10 + txtDetails.Text

Answer 4

您可以在公共单元中声明如下内容

const 
 CRLF = #13#10; //or name it 'Enter' if you want
 LBRK = CRLF+ CRLF;

并在所有程序中使用它。这真的会很方便。现在，20 年后，我已经在数千个地方使用了 CRLF！

FullMemo := txtFistMemo.Text + CRLF + txtDetails.Text

---

重要
在 Windows 中，正确的输入格式是 CRLF，而不仅仅是 CR 或 LF，正如其他人建议的那样。
例如，如果您的文件没有正确的输入（CRLF），Delphi IDe（这是一个 Windows 应用程序）将会对您非常生气：
Delphi XE - 所有蓝点都移动一排队

Answer 5

你不要像这样换行，你使用符号#13：

FullMemo := txtFistMemo.Text + #13 + txtDetails.Text
    + Chr(13) + 'some more text'#13.

#13是CR，#10是LF，有时只使用CR就足够了，有时（例如在编写文本文件时）使用#13#10。