Как распечатать ASCII Art на консоли в Free Pascal? - PullRequest
Новая
       25

Как распечатать ASCII Art на консоли в Free Pascal?

0 голосов
/ 25 февраля 2019

У меня есть текст, который содержит произведение искусства ASCII.Как я могу распечатать его на консоли в Free Pascal?Я знаю, что было бы проще на других языках программирования, но мне разрешено использовать только Free Pascal.

Запись с множеством writeln () для каждой строки была бы слишком утомительной.Есть ли другой способ сделать это? 

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

1 Ответ

0 голосов
/ 26 февраля 2019

Предполагая, что ваш файл называется 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.
...