如何在Free Pascal中将ASCII Art打印到控制台？

Question

我有一个包含一段ASCII艺术的文本。如何在Free Pascal中将其打印到控制台？我知道在其他程序语言中会更容易，但我只允许使用Free Pascal。

用多个writeln（）为每一行写它会太累人了。还有另一种方法吗？

                                                     (\\( \
                                                      `.\-.)
                                  _...._            _,-'   `-.
    \                           ,'      `-._.---.,-'       .  \
     \`.                      ,'                               `.
      \ `-...__              /                           .   .:  y
       `._     ``--..__     /                           ,'`---._/
          `-._         ``--'                      |    /_
              `.._                   _            ;   <_ \
                  `--.___             `.           `-._ \ \
                         `--<           `.     (\ _/)/ `.\/
                             \            \     `<a \  /_/
                              `.           ;      `._y
                                `--.      /    _../
                                    \    /__..'
                                     ;  //
                                    <   \\
                                     `.  \\
                                       `. \\_ __
                                         `.`-'  \\
                                           `----''  hjw

Answer 1

假设您的文件名为ASCII_ART.txt，那么执行以下操作：

program DisplayASCIIArt;

uses
  Classes;

var
  SL: TStringList;

begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('ASCII_ART.txt'); // use real name (full path!) here.
    Writeln(SL.Text);
  finally
    SL.Free;
  end;
  // if the console window closes immediately, add the following two lines:
  Write('Press [ENTER] key...');
  Readln;
end.