如何在每行的开头和结尾添加字符串以进行pascal输出

Question

在pascal中制作学校项目我想添加一些ascii art pascal使用write，writeln进行输出我想要一个工具将我的字符串粘贴到它上面并在每个字符串的开头和ond添加我的字符​​串write或writeln语法线 例如

●▬▬▬▬๑۩۩๑▬▬▬▬▬●
My Program
●▬▬▬▬๑۩۩๑▬▬▬▬▬●

应该是这样的

writeln('●▬▬▬▬๑۩۩๑▬▬▬▬▬●');
writeln('My Program');
writeln('●▬▬▬▬๑۩۩๑▬▬▬▬▬●');

Answer 1

您似乎需要定义自己的“输出”过程，而不是使用“writeln”。像这样：

Procedure MyOutput (const s: string);
begin
 writeln (fancytext);
 writeln (s);
 writeln (fancytext)
end;

其中'fancytext'是您的ASCII艺术字符串（定义为常量）。