Borland Pascal中readkey命令两次调用仅首次生效问题

问题核心原因 #

这个异常表现和crt单元对扩展按键的内置处理逻辑直接相关，并非readkey函数本身故障：

• 针对可打印字符、回车、空格等带标准ASCII码的常规按键，单次调用readkey就能完整读取到对应按键的返回值
• 针对方向键、F1-F12功能键这类无标准ASCII映射的扩展按键，单次按键操作会向键盘缓冲区写入两个连续字节：第一个是值为0的标记字节，第二个是对应按键的扩展扫描码，按照crt单元的设计，需要分两次调用readkey才能完整读走这两个字节。

对应测试代码的实际运行流程 #

你复现问题时第一次按下的是上方向键，恰好触发了上述扩展按键的双字节写入逻辑：

1. 程序启动清屏、设置满屏窗口后，第一次调用readkey，仅读走缓冲区里的第一个标记字节#0，此时上方向键的扫描码还残留在键盘缓冲区中
2. 程序顺序执行绘制窗口边框、输出退出提示文字的逻辑，全程未对键盘缓冲区做任何操作
3. 程序走到第二个用于等待用户退出的readkey时，直接把之前残留的扩展扫描码识别为有效输入读走，完全没有等待用户新的按键操作，最终表现为程序没有暂停、直接结束。

可行修正方案 #

根据实际需求可选择两种处理方式：

• 针对性清理首次按键的残留内容：第一次readkey检测到#0返回值时，立即再调用一次readkey把残留的扫描码读走，避免缓冲内容滞留，直接替换原代码中第一次的readkey语句即可：

  if ReadKey = #0 then
    ReadKey;
  

• 通用清理所有残留输入：如果需要兼容其他场景下的缓冲区残留问题，可以在第二次readkey前主动清空整个键盘缓冲区，避免遗留的旧输入触发非预期的读取：

  { 在输出退出提示语之后、第二次readkey之前插入清理逻辑 }
  while KeyPressed do
    ReadKey;
  

注意：原代码里注释掉的readln无法解决这个问题，因为readln走标准输入流的行缓冲逻辑，和crt单元直接操作硬件键盘缓冲区的读取路径不互通，无法清理readkey遗留的输入内容。

内容的提问来源于stack exchange，提问作者jeremy