Free Pascal在Linux Mint系统控制台游戏中隐藏光标的问题求助

数据老陈

2026-10-1

解决Linux Mint下Pascal控制台游戏隐藏光标与闪屏问题

核心解决方法：使用ANSI转义序列控制光标

Linux终端默认支持VT100标准ANSI转义序列，不需要依赖平台特定的单元方法即可控制光标显示状态：

隐藏光标：输出转义序列 \033[?25l（对应Pascal写法为#27'[?25l'）
恢复光标显示：输出转义序列 \033[?25h（对应Pascal写法为#27'[?25h'）

注意：程序退出前必须执行恢复光标的操作，否则用户退出游戏后终端光标会一直处于隐藏状态，影响正常使用。

闪屏问题优化方案

你当前的闪屏问题除了光标闪烁外，和每次重绘的逻辑也有关，可配合以下调整大幅降低闪屏：

去掉ClrMap()调用：直接调用GoToXY(1,1)后输出新地图，新内容会直接覆盖旧内容，不需要清空全屏，避免全屏刷新导致的闪烁
优化MapDisplay实现：将二维char数组先拼接为带换行符的完整字符串，一次性输出，不要逐字符/逐行输出，减少IO交互次数
输出完地图后再统一调用Flush(Output)主动刷新缓冲区，控制刷新时机

调整后的代码示例

// 程序初始化阶段执行，隐藏光标
Write(#27'[?25l');
try
  repeat
    ch := ReadKey;
    MainCharMove(Character, MainCharSym, ch);
    BumpTheWall := MainMap[Character.y, Character.x] = FrameSym;
    if BumpTheWall then 
    begin
      Character.x := Character.px;
      Character.y := Character.py;
    end;
    // 统一重绘逻辑，去掉冗余代码
    GoToXY(1,1);
    // ClrMap(); // 直接注释掉该行，不需要清屏
    PutCharacter(Character, MainMap, MainCharSym);
    MapDisplay(MainMap);
    Flush(Output); // 主动刷新缓冲区
  until ch = #27;
finally
  // 程序退出前强制恢复光标，避免异常退出后终端光标消失
  Write(#27'[?25h');
end;