如何取出TColor类型值对应的字符串？或反过来得到字符串的TColor值。

Question

function ColorToStr(mColor: TColor): string;
begin
  if not ColorToIdent(mColor, Result) then
    Result := '$' + IntToHex(mColor, 8);
end; { ColorToStr }function StrToColorDef(mStr: string; mDefault: TColor): TColor;
begin
  if not IdentToColor(mStr, Integer(Result)) then
    if not TryStrToInt(mStr, Integer(Result)) then
      Result := mDefault;
end; { StrToColorDef }

Answer 1

还有:
function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string;

Answer 2

用ColorToString
另TColor是一子届类型，用GetEnumName不行
如果为枚举类型可以这样如TBorderStyle
ShowMessage(GetEnumName(TypeInfo(TBorderStyle), Integer(bsNone)));