Как преобразовать HEX цвета в формат Delphi

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

  1. WinHack
    Есть ли функция или процедура для преобразования значений цвета в HEX формате в Delphi формат, типа этого: Cornsilk1 Cornsilk1 255 248 220 #FFF8DC в $00DCF8FF? Конечно есть!

    Код:
    function Swap32(aLong: Longint): Longint; assembler;
    asm
      BSWAP eax
    end;
    
    function HexColorToColor(HexColor: string): TColor;
      { вход: строка '#FFF8DC' -> выход $DCF8FF как TColor,
      используйте IntToHex для преобразования в строку, если нужно }
    begin
      Assert(Length(HexColor) > 1);
      Assert(HexColor[1] = '#');
      HexColor[1] := '$';
      Result := Swap32(StrToInt(HexColor));
    end;