Delphi中FMX框架下与ColorToString等效的函数是什么？

在VCL框架中，System.UIConsts单元提供的ColorToString函数仅支持VCL的TColor类型，实现如下：

function ColorToString(Color: TColor): string;
begin
  Result := ColorToStringExt(Color, csfIdent);
end;

该函数没有针对FMX框架的重载版本，而FMX使用TAlphaColor作为颜色类型，无法直接调用。

实现FMX专属的ColorToString函数 #

可以参考VCL版本的逻辑，针对TAlphaColor实现相同功能：

uses
  FMX.Graphics, System.UIConsts;

function FMXColorToString(Color: TAlphaColor): string;
var
  ColorRec: TAlphaColorRec;
begin
  ColorRec := TAlphaColorRec(Color);
  // 匹配FMX预定义颜色常量，返回对应标识符
  if Color = TAlphaColors.Red then Result := 'Red'
  else if Color = TAlphaColors.Green then Result := 'Green'
  else if Color = TAlphaColors.Blue then Result := 'Blue'
  // 可补充更多预定义颜色判断...
  else
    // 非预定义颜色返回RGB格式字符串
    Result := Format('RGB(%d, %d, %d)', [ColorRec.R, ColorRec.G, ColorRec.B]);
end;

跨框架转换方案（不推荐） #

如果需要复用VCL的ColorToString，可将TAlphaColor转换为TColor（丢弃Alpha通道），但需同时引用VCL和FMX单元，可能引发依赖冲突：

uses
  VCL.Graphics, FMX.Graphics;

function ConvertFMXColorToString(Color: TAlphaColor): string;
var
  VCLColor: TColor;
begin
  VCLColor := TColor(Color and $00FFFFFF); // 去除Alpha通道
  Result := System.UIConsts.ColorToString(VCLColor);
end;

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