Никита's questions

我有这个 FreePascal：

我定期在其中编写程序。

问题是 - 我从其他来源获取了一些代码来测试，但它们很长，例如：

{Программа ASCII_TABLE выводит на экран таблицу ASCII символов}

program ASCII_TABLE;

uses CRT;

var i : byte;
j : byte;
ch : byte;
st : string;

begin
   GoToXY(2, 2);
   Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
   Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
   for j := 0 to 7 do
   for i := 0 to 15 do
      begin
         GoToXY(j*10+2, i+4);
         ch := i+(j*16);
         if ch < 10 then st := ' '
         else if ch < 100 then st := ' '
         else st := ' ';
         Write(ch, st, Chr(ch));
      end;
   GoToXY(2, 22);
   Write('Чтобы посмотреть следующую страницу, нажмите ENTER');
   Readln;
   ClrScr;
   GoToXY(2, 2);
   Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
   Write('Код Симв. Код Симв. Код Симв. Код Симв. ');
   for j := 0 to 7 do
   for i := 0 to 15 do
      begin
         GoToXY(j*10+2, i+4);
         ch := i+(j*16) + 128;
         if ch < 10 then st := ' '
         else if ch < 100 then st := ' '
         else st := ' ';
         Write(ch, st, Chr(ch));
      end;
   GoToXY(2, 22);
   Write('Нажмите ENTER для выхода из программы');
   Readln;
end.

重新输入所有代码非常繁琐且耗时，并且由于某种原因不可能将其复制到编辑器中。

我不擅长宏，如果您通过另一个程序保存源文件，它将无法在编辑器本身中正确解码。

它看起来像这样：

Notepad++ 中的示例代码

Pascal 中的相同代码：

现在我正在寻找如何将从其他地方复制的代码插入到 Pascal 中。

如果有人知道，也许这个编辑器工作不正常？