HTML Color To Delphi TColor

HTML Color 采用十六进制表示颜色，其格式为RGB，而Tcolor的格式是GBR。如果把HTML颜色转为Tcolor，需要转换其格式。

比如： HTML Color： #123456

    转为Tcolor，则为：$563412， 把其转为Integer值，即为Tcolor值。

function TForm1.htmlColor2color( hColor : string ) : Integer;
var
  s, c : string;
begin
  s := hColor.Trim;
  if ( s.Chars[ 0 ] ).IsNumber then
    s := s.PadLeft( 6, '0' )
  else
    s := s.Substring( 1 ).PadLeft( 6, '0' );
  // html color :  rgb    tcolor : gbr
  Result := ('$' + s.Substring( 4, 2 ) + s.Substring( 2, 2 ) + s.Substring( 0, 2 )).ToInteger;
end;

以上在 Delphi Berlin 10.1 测试通过。