Free Pascal中用类似\n的方式替代空WriteLn()的实现方法

嘿，我懂你现在的烦恼——写了一大堆过程，每个里面都要插个空的WriteLn()来换行，重复写确实挺麻烦的！其实Free Pascal里完全有更简洁的方式，就像你说的HTML里的\n那样，直接在字符串里嵌入换行符就行，下面给你几个实用的方案：

1. 直接使用ASCII换行字符#10 #

在Free Pascal中，ASCII码里的换行符是#10，你可以直接把它嵌入到字符串里，或者和字符串拼接，这样就能省去单独的空WriteLn()调用。

比如你原来的这段代码：

WriteLn('This is a message');
WriteLn(); // 空行
WriteLn('This is another message');

可以改成这样：

// 直接在字符串里插入#10实现换行
WriteLn('This is a message'#10'This is another message');

如果是想先输出内容再留一个空行，也可以这么写：

WriteLn('This is a message'#10);

对应你代码里的过程B，原来的写法：

procedure B(); //Do something else useful
WriteLn(); //<---Empty WriteLn();
WriteLn('This is another message');

可以简化成：

procedure B(); //Do something else useful
WriteLn(#10'This is another message');

2. 定义换行常量，让代码更易读 #

如果觉得#10不够直观，你可以先定义一个语义化的常量，后续用起来更清晰：

const
  NL = #10; // NL = New Line，名字可以随便取

之后写代码的时候就可以用这个常量替代#10，比如：

WriteLn('This is a message', NL, 'This is another message');
// 或者直接嵌入字符串
WriteLn('This is a message'NL'This is another message');

3. 自定义输出函数（按需选择） #

如果你的场景里经常需要“输出内容+换行”或者“空行+内容”，还可以写个自定义函数来封装逻辑，比如：

// 输出内容后添加一个空行
procedure WriteLnWithBlankLine(const Content: string);
begin
  WriteLn(Content, #10);
end;

// 先输出空行再输出内容
procedure WriteBlankLineThenContent(const Content: string);
begin
  WriteLn(#10, Content);
end;

之后调用的时候就更省事了，比如WriteBlankLineThenContent('This is another message')就替代了原来的空WriteLn()加WriteLn()的组合。

小提示 #

如果你是在Windows系统下开发，有时候需要回车+换行的组合（#13#10，也就是CRLF），不过Free Pascal的WriteLn()函数会自动根据操作系统调整换行格式，所以一般用#10就足够了。如果是用Write()输出的话，可以根据需求选择#10或者#13#10。

内容的提问来源于stack exchange，提问作者Khang