Преобразование TColor в Hex и Hex в TColor

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Вашему вниманию представляются две простые функции для преобразования значения цвета из TColor в Hex (HTML) и наоборот:

    Код:
    function TColorToHex(Color : TColor) : string;
     begin
        Result :=
          IntToHex(GetRValue(Color), 2) +
          IntToHex(GetGValue(Color), 2) +
          IntToHex(GetBValue(Color), 2) ;
     end;
    
     function HexToTColor(sColor : string) : TColor;
     begin
        Result :=
          RGB(
            StrToInt('$'+Copy(sColor, 1, 2)),
            StrToInt('$'+Copy(sColor, 3, 2)),
            StrToInt('$'+Copy(sColor, 5, 2))
          ) ;
     end;