主页 / 问题 / 1581468
Accepted
Никита
Asked:2024-05-24 17:33:46 +0000 UTC2024-05-24 17:33:46 +0000 UTC

如何将代码复制到 Free Pascal IDE 编辑器中？

  • 772

我有这个 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 中。

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

pascal

2 个回答

  1. Best Answer

    我在Word中输入了程序。我复制并粘贴了“从 Windows 粘贴”——蹩脚的东西。

    在复制到Word之前，我启用了俄语键盘布局。现在已经正常插入了。Windows 缓冲区包含代码页信息。

    如果您从此页面复制，也会得到同样的结果：

    program a;
begin
  writeln('Привет');
  readln;
end.
    • 0

  2. 我在这里找到它： 在此输入图像描述 只有编码是有问题的（

    • 0

相关问题