Delphi中是否有提取TColor变量R、G、B字节值的现成函数？

现成函数直接调用 #

Delphi的VCL库提供了三个可直接调用的函数，用于从TColor中提取R、G、B字节值：GetRValue、GetGValue、GetBValue。注意：如果处理的是系统预定义颜色（如clBtnFace、clRed这类），建议先调用ColorToRGB将其转换为真实的RGB数值，避免系统颜色的特殊编码导致提取错误。示例代码如下：

var
  TargetColor: TColor;
  R, G, B: Byte;
begin
  TargetColor := clBtnFace; // 示例系统颜色
  TargetColor := ColorToRGB(TargetColor); // 转换为标准RGB格式
  R := GetRValue(TargetColor);
  G := GetGValue(TargetColor);
  B := GetBValue(TargetColor);
end;

你提供的代码存在的问题 #

你找到的这段字符串处理代码有以下明显缺陷：

• 未处理系统颜色：系统颜色的TColor值带有高位标记（如clBtnFace的值为$8000000F），直接用IntToHex转换会丢失关键的高位信息，导致提取的RGB值完全错误。
• 效率低且易出错：通过字符串截取、转整数的方式，比直接位运算慢很多，且依赖字符串补0、截取位置等细节，容易出现逻辑漏洞。
• 冗余实现：自定义的HexToInt函数完全没必要，用现成函数或位运算就能高效完成操作。

更高效的自定义实现 #

如果需要自定义提取逻辑，推荐用位运算的方式，同时统一处理系统颜色：

procedure ColorToRGB(iColor: TColor; var R, G, B: Byte);
var
  RGBInt: Integer;
begin
  RGBInt := ColorToRGB(iColor); // 先将所有颜色转为标准RGB整数格式
  R := Byte(RGBInt);          // 提取低8位（R分量）
  G := Byte(RGBInt shr 8);    // 右移8位后提取G分量
  B := Byte(RGBInt shr 16);   // 右移16位后提取B分量
end;

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