[delphi6] TColor>>string

Здравствуйте!
Мне нужно записать в ини файл цвет(его номер).
Я записываю в ини файл так: IniFile.WriteString
Но цвет - это TColor, а мне нужен string.
Значение цвета беру из ColorDialog.
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Здравствуйте!
Мне нужно записать в ини файл цвет(его номер).
Я записываю в ини файл так: IniFile.WriteString
Но цвет - это TColor, а мне нужен string.
Значение цвета беру из ColorDialog.
Здравствуйте Surin_bp,
Monday, March 22, 2004, 9:44:21 AM, вы писали:
Цвет - это TColor.
Тема: Re[2]: [delphi6] TColor>>string
И ТЕМ НЕ МЕНЕЕ, ЭТО INTEGER :)) Зрите в корень, мужики!
Попробуйте сами:
var
Color: TColor;
s: String;
begin
Color:=clRed;
s:=IntToStr(Color);
ShowMessage(s);
Color:=StrToInt(s);
ShowMessageFmt('c: %x , %s', [color, s]);
fmMain.Color:=Color
end;
Здравствуйте Surin_bp,
Monday, March 22, 2004, 12:23:20 PM, вы писали:
Вы наверное забыли про то что цвет я беру из colordialog=)
Прив!
А какая разница?ColorDialog имеет свойство типа TColor! а это integer;
!!!!!!!!!
ну сделай приведение типа colorInt:=integer(Color);
С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2670
Возраст листа : 183 (дней)
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/109799
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Тема: Re[4]: [delphi6] TColor>>string
А какая разница? Все равно Вы берете Color:TColor. Об этом-то я и писал - цвет
не надо абсолютизировать - это целое число и в ДОС и в Windows. И Delphi это
понимает без проблем.
Как говорил С. М. Паниковский - "Вы попробуйте..."
Здравствуйте, keel.
Вы писали 22 марта 2004 г., 9:18:20:
Читай функцию ColorToString и StringToColor.
Unit
Graphics
Category
graphics utilities
extern PACKAGE AnsiString __fastcall ColorToString(TColor Color);
Description
Call ColorToString to obtain an AnsiString that represents a TColor
value. If there is a symbolic constant defined for the color (such as
clBlack or clWindow), ColorToString returns the name of the constant.
Otherwise, ColorToString returns the hex value of the color, formatted
as an AnsiString.
--
С уважением,
Feniks mailto: feni***@b*****.ua
Номер выпуска : 2661
Возраст листа : 182 (дней)
Количество подписчиков : 376
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/109125
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Здравствуй, keel!
А не проше IniFile.WriteInt ?
С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2669
Возраст листа : 183 (дней)
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/109769
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Здравствуйте monah,
Tuesday, March 23, 2004, 8:42:58 AM, вы писали:
Привет!
Я уже решил проблему при помощи ColorToString и StringToColor.
ИМХО это самый простой способ, мне его подсказал Feniks.
Привет!
ИМХО!!! Но
1 Не самый быстрый
2 Лишние байты в размер проги.
Если это не актуально то конечно, если у тя пень 4 и 2ГГц при 512Мб РАМ, то
какая нафиг разница! А мне с пень 1 166КГц 48Мбт куда податься? Ишем
оптмизируем, счет идет не на милисекунды - на минуты...
А веть есть юзвери которые на 486 юзают! Знакомый на 133 Пне с 32 ОЗУ и 2
Гига хард!
Сорри разошелся я что-то.
С уважением monah
e-mail : janal***@n*****.ru
сайт : http:\\janalex.narod.ru
--
Номер выпуска : 2677
Возраст листа : 183 (дней)
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/110129
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Тема: Re: [delphi6] TColor>>string
Если, как строка, то сохраняется возможность редактировать настройки текстовым
редактором :))
текстовым редактором :))
А про HEX редакторы забыли(NC, WC, VC ...)? К тому же что-то подсказывает
что и юзверя любят поковырять эти тексты!
Номер выпуска : 2678
Возраст листа : 183 (дней)
Количество подписчиков : 377
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/110130
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Тема: [delphi6] TColor>>string
IntToStr - StrToInt