Delphi中TLogPalette的palPalEntry字段出现范围错误求助

Winapi.Windows里tagLOGPALETTE的palPalEntry定义为array[0..0] of TPaletteEntry是Windows API的标准写法，这是可变长度记录的实现手段——调色板条目数量并非固定256个，这种设计允许根据实际需求动态调整条目数。

你遇到的范围错误，本质是直接使用静态声明的TLogPalette变量导致的：静态变量的内存仅包含1个TPaletteEntry的空间，当你尝试填充超过1个条目时自然会触发越界。

正确处理步骤 #

• 确定实际需要的调色板条目数量（最多不超过256）
• 动态分配足够内存：计算公式为 SizeOf(TLogPalette) - SizeOf(TPaletteEntry) + 条目数 * SizeOf(TPaletteEntry)（减去占位的1个条目空间，再加上实际需要的所有条目内存）
• 将分配的内存强制转换为PLogPalette指针
• 设置palVersion为$300（Windows 3.0及以上兼容的版本号），palNumEntries为实际条目数
• 通过指针访问palPalEntry数组，索引范围为0到palNumEntries-1，填充颜色值
• 使用完毕后释放内存

示例代码 #

var
  LogPal: PLogPalette;
  PaletteSize: Integer;
  EntryCount: Integer;
  i: Integer;
begin
  EntryCount := 256; // 示例：创建256色灰度调色板
  // 计算所需内存大小
  PaletteSize := SizeOf(TLogPalette) - SizeOf(TPaletteEntry) + EntryCount * SizeOf(TPaletteEntry);
  GetMem(LogPal, PaletteSize);
  try
    LogPal^.palVersion := $300;
    LogPal^.palNumEntries := EntryCount;
    // 填充调色板条目
    for i := 0 to EntryCount - 1 do
    begin
      LogPal^.palPalEntry[i].peRed := i;
      LogPal^.palPalEntry[i].peGreen := i;
      LogPal^.palPalEntry[i].peBlue := i;
      LogPal^.palPalEntry[i].peFlags := 0; // 无特殊标志，如需避免颜色合并可设为PC_NOCOLLAPSE
    end;
    // 此处可调用CreatePalette(LogPal)创建GDI调色板
  finally
    FreeMem(LogPal);
  end;
end;

这种可变长度结构是Windows API的常见设计，无需修改单元中的声明，按上述动态分配内存的方式使用即可解决范围错误。

内容的提问来源于stack exchange，提问作者Stefan de Beer