Using something similar to \n rather than empty WriteLn() in free pascal - freepascal

Question

procedure A();
//Do something useful
WriteLn('This is a message');
procedure B();
//Do something else useful
WriteLn(); //<---Empty WriteLn();
WriteLn('This is another message');
procedure C();
//Do something else useful
A();
B();
WriteLn(); //<---Empty WriteLn();
WriteLn('This is another message from C');
This is only 3 procedures, and my program has more than 3 procedures like this...Is there a way that I don't have to put empty WriteLn(); (something like \n in html) in most procedures because of aesthetic reasons?
Thanks!

Answer 1

The proper way to do this is actually to use an empty Writeln. A second best, also platform-independent way is to use something like:
Writeln(sLineBreak + sLineBreak + 'This is another message');
(sLineBreak is defined in unit System, AFAIK).
But if you already think that using an empty Writeln is too much, then you can insert the carriage return and line feed characters in the string, as below:
Windows
Just add a carriage return (#13) /line feed (#10) combination:
procedure B();
begin
//Do something else useful
WriteLn(#13#10'This is another message');
end;
You can even have multiple empty lines like that:
Writeln(#13#10#13#10'Hello');
Writeln('-----'#13#10#13#10);
Non-Windows
If you are on a non-Windows platform, probably a #10 (line feed) will do. Most non-Windows platforms do not need the carriage return.
FWIW, instead of #10 you can also use ^J and instead of #13 you can use ^M. These are equivalents:
Writeln(^M^J^M^J'Hello');
Writeln('-----'^M^J^M^J);
^M is Ctrl+M, which has ASCII code 77 - 64 = 13! ^J is 74 - 64 = 10.