[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;

[M.A.D.M.A.N.]

Код:

StrToInt('$FFFFFF')

В хекс перевести можно и так

Код:

IntToHex(color, 8)

[AlexandrV]

Нельзя. Я перевожу под OpenGl цвет а у него цвет перевернутый сверх на голову. Мне нужно из этот код [$FF0000]

перевести в этот clBlue для перевода в этот используется эта функция

Код:

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

вот функция назад перевода

Код:

Function HexToColor(HexColor:String): TColor;
begin
  if pos('$',HexColor)>=0 then System.Delete(HexColor,pos('$',HexColor)-1,1);
  Result :=
      RGB(
        StrToInt('$'+Copy(HexColor, 1, 2)),
        StrToInt('$'+Copy(HexColor, 3, 2)),
        StrToInt('$'+Copy(HexColor, 5, 2))
      ) ;
end;

но надо избавиться от этих скобок []

[M.A.D.M.A.N.]

ну поразрядно тогда сдвигай.
где тут квадратные скобки?

[Alegun]

Вот так работает

Код:

function HexToTColor(sColor : string) : TColor;
begin
  Delete(sColor,1,1);
   Result :=
     RGB(
       StrToInt('$' + Copy(sColor, 5, 2)),
       StrToInt('$' + Copy(sColor, 3, 2)),
       StrToInt('$' + Copy(sColor, 1, 2))
     ) ;
end;

У вас вызывается RGB а передается BGR

[AlexandrV]

Сообщение от Alegun

Вот так работает

Код:

function HexToTColor(sColor : string) : TColor;
begin
  Delete(sColor,1,1);
   Result :=
     RGB(
       StrToInt('$' + Copy(sColor, 5, 2)),
       StrToInt('$' + Copy(sColor, 3, 2)),
       StrToInt('$' + Copy(sColor, 1, 2))
     ) ;
end;

У вас вызывается RGB а передается BGR

Я знаю. OpenGl так считывает. я не виноват что игра просит верх нагами Hex код

[M.A.D.M.A.N.]

а нельзя текст сохранять как БГР?

[AlexandrV]

Можно. Ладно спасибо. Тепрь функция готова и при добавлении текста текст добавляется цветным