[AlexandrV]

Как перевести Hex в чило например вот функция

Код:

function ColorToHex(Color: TColor): string;
begin
  Result :='$'+
  IntToHex(GetBValue(Color), 2) +
  IntToHex(GetGValue(Color), 2) +
  IntToHex(GetRValue(Color), 2) ;
end;

Теперь надо сделать аналог
HexToColor вот начел делать функцию

Код:

Function HexToColor(HexColor:String): TColor;
begin
  //Если в строке находим значок $ то
  if pos('$',HexColor)>0 then {Удаляем его} System.Delete(HexColor,pos('$',HexColor)-1,1);
  Result:=
end;