String в TColor

← →
ТехникПТО © (2005-03-02 18:26) [0]

Есть переменная в которую ранее был сохранен цвет... а как обратно перевести String в Color??

← →
Antonn © (2005-03-02 18:27) [1]

ТехникПТО © (02.03.05 18:26)
А в каком виде он хранился?

← →
GLFox (2005-03-02 18:29) [2]

Вообще TColor - это число... Следовательно StrToInt.

← →
Reindeer Moss Eater © (2005-03-02 18:30) [3]

MyColor:= StrToInt(StringWithColor);

← →
Antonn © (2005-03-02 18:33) [4]

> Вообще TColor - это число... Следовательно StrToInt.

Мало ли, вдруг человек хранит clblack как "black" :)

← →
Knoxville (2005-03-02 18:37) [5]

Напиши свою ф-цию типа

function StrToColor(color: String): TColor; begin if color := "clBlack" then Result := clBlack; ..... end;

Это конечно долго и много, но зато ты можешь хранить цвет, как "черный" или "black" и т.п, а не только как "clBlack"

← →
Просто Джо © (2005-03-02 18:43) [6]

StringToColor в модуле Graphics.pas
Берет также константы типа clXXX

← →
DiamondShark © (2005-03-02 18:45) [7]

Ух ты, какие способные телепаты!
Мне вот без описания алгоритма, как "ранее был сохранен цвет" совсем не ясно, как "обратно перевести".

← →
Просто Джо © (2005-03-02 19:43) [8]

Автору:
используй ColorToString, чтобы над тобой не измывались как в [7] DiamondShark ©
:)

← →
Anatoly Podgoretsky © (2005-03-02 20:28) [9]

Количество вариантов сохранения такое, что на них не хватит ни каких измывательств.

← →
Просто Джо © (2005-03-02 21:23) [10]

> [9] Anatoly Podgoretsky © (02.03.05 20:28)
> Количество вариантов сохранения такое, что на них не хватит
> ни каких измывательств.

Не будет никаких других вариантов, если использовать связку:
ColorToString & StringToColor

← →
begin...end © (2005-03-02 21:26) [11]

> Просто Джо © (02.03.05 21:23) [10]

Точно так же, не будет никаких других вариантов, если использовать связку IntToStr и StrToInt.

← →
Anatoly Podgoretsky © (2005-03-02 21:27) [12]

Продолжим список или как?

← →
begin...end © (2005-03-02 21:28) [13]

> Anatoly Podgoretsky © (02.03.05 21:27) [12]

Я пас :-)

← →
Просто Джо © (2005-03-03 01:28) [14]

В сабже фигурировали string и TColor, по-моему, нет ничего странного в варианте [10]

Согласен с [10],сам так работаю.Хотя также согласен с [12]

Ну, автор вопроса выберет подходящее ;)
Или, наконец, удосужится грамотно задать вопрос.

Зачем вообще надо ьыло переводить цвет в строку?

А может RTTI подключить, тогда цвет можно получить как "clBlack" автоматически.

> [18] Reindeer Moss Eater © (03.03.05 09:35)
> Зачем вообще надо ьыло переводить цвет в строку?

Ну, например, для записи в конф. файл. Дело в том, что если цвет можно выразить через константу clXXX, то ColorToString это сделает. И в ини-файл это будет смотреться "красивше", чем 032013202.
Но автор, похоже, потерял бумажку с урл мастаков и больше не вернется :)

String в TColor Найти похожие ветки