[T-dayne]

Нужно перевести строчку типа cf0404 в формат, применмый например к фону едита, т.е. Tcolor.
Делаю такую функцию:

Код:

1 2 3 4 5 6 7 8 9

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

не работает, пишет

'$' is not valid integer value

Тоже самое вывовдит при использовании стандартной функции StringToColor.
Как можно решить данную проблему?
ПС: Строчка с кодом читается из ини файла так:

Код:

1	edit2.Color:=stringtocolor(ini.ReadString('main', 'title1color', ''));

Файл существует и читаем 100%.

[Thrasher]

Сообщение '$' is not valid integer value свидетельствует о том , что результатом функции Copy(sColor, 1, 2) и последующих, является пустая строка.

Поэтому под отладчиком надо просмотреть, передается ли вообще значение sColor. Потом, рекомендую сделать отдельными функциями получение значений для функции RGB.