Сохранение типа TColor в текстовый файл и чтение его оттуда

← →
FZ*XupypG © (2003-05-10 04:08) [0]

Как сохранить значение цвета ( TColor) в строку, чтобы затем сохранить прочитать его?

← →
Bokus © (2003-05-10 04:53) [1]

Сохраняем в строку
Edit1.Text:=ColorToString(Panel1.Color);

Берем из строки
Form1.Color:=StringToColor(Edit1.Text);

← →
KSergey © (2003-05-10 08:34) [2]

Есть, как мне кажется, ндостаток у такого метода в случае, когда сохранение происходит в БД: если цвет имеет наименования для дельфи - эта ф-ция его и вернет.. А длина этого наименования - неизвестна (в общем случае).

Я сделал так:

-запись в БД:

dsTexts["Color"] := IntToHex (Integer(Elem.Font.Color), 6);

-чтение

Fnt.Color := TColor(StrToInt("$0" + Trim(dsTexts.FieldByName("Color").AsString)));

Получается текстовое поле гарантированной длины - 6 знаков.

← →
Юрий Зотов © (2003-05-10 09:22) [3]

Непонятно только одно - а зачем вообще надо сохранять ЧИСЛО непременно в виде СТРОКИ?

> Юрий Зотов © (10.05.03 09:22)

Хм, а ведь Вы как всегда вравы... Об этом я и не подумал... Совсем что-то туп стал...
Впрочем, есть в этом и некоторый смысл: разумеется, в виде числа достаночно будет 3 байт, вот только если приспичит что-то поправить ручками - далеко не всякий инструментарий для работы с БД (если о них вести речь) позволит работать с 16-тиричным представлением да еще 3-х байтовых величин. Хотя это, конечно, не особое оправдание.
Единственное что могу еще добавить - есть ini файлы, они текстовые по своей природе, и 16-тиричная запись в них короче 10-тичной, да и понятнее в данном случае (триада цветов).

Сохранение типа TColor в текстовый файл и чтение его оттуда Найти похожие ветки