简单类型 / 字符串

var
  Lines, Classic: string;
begin
  //Delphi 12 multiline literal: the
  //closing quote sets the left margin
  Lines := '''
    1. First line
    2. Second line
      3. Third line
    4. Fourth "line"
    ''';
  WriteLn(Lines);

  //before Delphi 12: concatenation
  Classic := '1. First line' + sLineBreak +
    '2. Second line';
  WriteLn(Classic);
end.