[原创] 在 Delphi 中，如何在字符串中包含换行符-Delphi 大神网

欢迎加入全网最大Delphi 技术交流群 682628230

在 Delphi 中，如果需要在字符串中包含换行符以实现多行文本显示（例如在 TLabel 的 Caption 属性中），可以使用多种方法。以下是详细的总结和示例。

1. 使用 `sLineBreak` 常量

sLineBreak 是 Delphi 中定义的一个常量，它会根据操作系统的不同自动选择正确的换行符。
- 在 Windows 系统中，sLineBreak 等于 #13#10（回车+换行）。
- 在 Linux 系统中，sLineBreak 等于 #10（换行）。

示例：

Label1.Caption := '第一行' + sLineBreak + '第二行';

优点：跨平台兼容，推荐使用。

2. 直接使用换行符

可以使用 #13#10 来表示换行符（Windows 风格）。

示例：

Label1.Caption := '第一行'#13#10'第二行';

或者：

Label1.Caption := '第一行' + #13#10 + '第二行';

注意：这种方法不跨平台，仅适用于 Windows。

3. 使用 `^M` 和 `^J` 快捷键

^M 表示回车符（#13），^J 表示换行符（#10）。

示例：

Label1.Caption := '第一行' + ^M + ^J + '第二行';

注意：这种方法也不跨平台。

4. 使用 `TStrings` 的 `Text` 属性

如果需要处理多行文本，可以将字符串存储在 TStrings（如 TStringList）中，然后使用 Text 属性。

示例：

var
  Lines: TStringList;
begin
  Lines := TStringList.Create;
  try
    Lines.Add('第一行');
    Lines.Add('第二行');
    Label1.Caption := Lines.Text;
  finally
    Lines.Free;
  end;
end;

优点：适合处理复杂的多行文本。

5. 使用 `AdjustLineBreaks` 函数

AdjustLineBreaks 函数可以将字符串中的换行符调整为当前平台的标准格式。

示例：

Label1.Caption := AdjustLineBreaks('第一行'#10'第二行');

6. RAD Studio 12.0 及以上版本的多行字符串

从 RAD Studio 12.0 开始，Delphi 支持多行字符串字面量。
使用三个单引号 ''' 包裹多行字符串。

示例：

const
  str = '''
    第一行
    第二行
  ''';

优点：简化多行字符串的定义，自动处理缩进和换行。

7. 综合示例

var
  stlst: TStringList;
begin
  // 方法 1: 使用 sLineBreak
  Label1.Caption := '第一行' + sLineBreak + '第二行';

  // 方法 2: 直接使用换行符
  Label2.Caption := '第一行'#13#10'第二行';

  // 方法 3: 使用 ^M 和 ^J
  Label3.Caption := '第一行' + ^M + ^J + '第二行';

  // 方法 4: 使用 TStrings
  stlst := TStringList.Create;
  try
    stlst.Add('第一行');
    stlst.Add('第二行');
    Label4.Caption := stlst.Text;
  finally
    stlst.Free;
  end;

  // 方法 5: 使用 AdjustLineBreaks
  Label5.Caption := AdjustLineBreaks('第一行'#10'第二行');

  // 方法 6: 多行字符串字面量（RAD Studio 12.0+）
  Label6.Caption := '''
    第一行
    第二行
  ''';
end;