如何正确清除终端样式属性？Delphi跨平台库行背景溢出问题

我正在为Delphi编写一个基于Pascal的跨平台终端读写库，结合Winapi.Windows单元的函数与Linux控制字符来修改终端输出文本的前景色和背景色。目前遇到一个问题：上一行的背景色会溢出到下一行，但不会在本行内溢出。

复现代码 #

for var I := 1 to 6  do
  begin
    var TextAttrib: integer;
    var Buff: TConsoleScreenBufferInfo;
    const Handle = TTextRec(Output).Handle;

    // Red
    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), Buff);
    TextAttrib := Buff.wAttributes and $FF0F;
    TextAttrib := TextAttrib or (Word(4) shl 4);
    SetConsoleTextAttribute(Handle, TextAttrib);

    System.WriteLn('Debug test');
    SetConsoleTextAttribute(Handle, $0F);

    // Green
    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), Buff);
    TextAttrib := Buff.wAttributes and $FF0F;
    TextAttrib := TextAttrib or (Word(2) shl 4);
    SetConsoleTextAttribute(Handle, TextAttrib);

    System.WriteLn('Color filler test');
    SetConsoleTextAttribute(Handle, $0F);

    // Blue
    GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), Buff);
    TextAttrib := Buff.wAttributes and $FF0F;
    TextAttrib := TextAttrib or (Word(1) shl 4);
    SetConsoleTextAttribute(Handle, TextAttrib);

    System.WriteLn('Line overflow');
    SetConsoleTextAttribute(Handle, $0F);
    System.WriteLn('');
  end;

该问题在Windows系统中仅在第4次左右输出后出现，但Linux下始终存在。显然我的实现方式存在问题，请问我哪里出错了？

问题根源与修复方案 #

核心问题分析 #

1. Windows端：句柄混用导致上下文不一致
   你同时使用了GetStdHandle(STD_OUTPUT_HANDLE)和TTextRec(Output).Handle两个不同的控制台句柄，前者是系统原生标准输出句柄，后者是Delphi封装的输出流句柄，两者的缓冲区状态可能不同步。多次循环后，GetConsoleScreenBufferInfo获取的属性并非当前活跃输出流的真实状态，导致属性重置出现偏差，累积出背景色溢出。

2. Linux端：换行时属性未完全重置
   通常Linux终端会继承当前光标位置的属性到下一行，如果输出带背景色的文本后，未在换行前完全重置所有终端属性（仅部分重置或重置时机错误），就会导致背景色延续到新行。

针对性修复 #

1. Windows端：统一控制台句柄

将所有GetStdHandle(STD_OUTPUT_HANDLE)替换为你定义的Handle，确保属性获取和修改的是同一个输出流的上下文：

// 替换所有GetStdHandle调用
GetConsoleScreenBufferInfo(Handle, Buff);

2. 跨平台通用：调整属性重置时机

将WriteLn拆分为「输出文本→重置属性→换行」的步骤，确保换行时光标所在的新行已恢复默认属性：

for var I := 1 to 6  do
  begin
    var TextAttrib: integer;
    var Buff: TConsoleScreenBufferInfo;
    const Handle = TTextRec(Output).Handle;

    // Red
    GetConsoleScreenBufferInfo(Handle, Buff);
    TextAttrib := Buff.wAttributes and $FF0F;
    TextAttrib := TextAttrib or (Word(4) shl 4);
    SetConsoleTextAttribute(Handle, TextAttrib);
    System.Write('Debug test'); // 仅输出文本，不换行
    SetConsoleTextAttribute(Handle, $0F); // 重置属性
    System.WriteLn; // 执行换行

    // Green
    GetConsoleScreenBufferInfo(Handle, Buff);
    TextAttrib := Buff.wAttributes and $FF0F;
    TextAttrib := TextAttrib or (Word(2) shl 4);
    SetConsoleTextAttribute(Handle, TextAttrib);
    System.Write('Color filler test');
    SetConsoleTextAttribute(Handle, $0F);
    System.WriteLn;

    // Blue
    GetConsoleScreenBufferInfo(Handle, Buff);
    TextAttrib := Buff.wAttributes and $FF0F;
    TextAttrib := TextAttrib or (Word(1) shl 4);
    SetConsoleTextAttribute(Handle, TextAttrib);
    System.Write('Line overflow');
    SetConsoleTextAttribute(Handle, $0F);
    System.WriteLn;

    System.WriteLn('');
  end;

3. Linux端：确保完全重置属性

使用ANSI控制字符时，必须输出\033[0m完全重置所有终端属性（包括背景色、前景色、格式等），再执行换行，避免属性继承：

// Linux端示例（需条件编译）
System.Write(#27'[44mLine overflow'#27'[0m'); // 蓝色背景+文本+完全重置
System.WriteLn;

额外注意事项 #

• 跨平台开发需添加条件编译分支，Windows使用Winapi.Windows函数，Linux使用ANSI控制字符，避免跨平台执行不兼容代码。
• Windows终端需开启ENABLE_VIRTUAL_TERMINAL_PROCESSING模式才能支持ANSI转义序列（若你后续考虑统一用ANSI实现跨平台颜色控制）。

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