|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.07.2008, 21:25 | #1 |
Форумчанин
Регистрация: 04.03.2008
Сообщений: 176
|
String and color
Помогите правильно записать этот код.
procedure TForm1.Button1Click(Sender: TObject); var a:string; begin if colordialog1.Execute then a:=colordialog1.color; end; |
04.07.2008, 21:29 | #2 |
Форумчанин
Регистрация: 07.08.2007
Сообщений: 154
|
Про тэги не забываем
Код:
|
04.07.2008, 21:31 | #3 |
Форумчанин
Регистрация: 04.03.2008
Сообщений: 176
|
а если
procedure TForm1.Button1Click(Sender: TObject); begin if colordialog1.Execute then form1.caption:=colordialog1.color; end; то тоже тэгами? |
04.07.2008, 22:16 | #4 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
если пишется свойство от класса Txxxxxx, или как там ещё, то достатосно писать имя свойства для обращения к объекту.
TColor - обычное целое число. Код:
|
04.07.2008, 22:19 | #5 |
Форумчанин
Регистрация: 04.03.2008
Сообщений: 176
|
а обратно сработает?
|
04.07.2008, 23:40 | #6 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Ну для начала. Вы хотите получить результат в какой системе счисления ? я думаю точно если желаите получить стринг, то точно уж не IntToStr - 10я. Я думаю вам нужна 16я ? т.е. #FFA000 такого вида. тогда дело обстоит так IntToHex(TColor, 6) или Format('%6.x', [TColor]); вроде верно ( если что смотрим в документации ) там еще прийдется переворачивать т.е. будет не #FFA000 а #00A0FF Думаю ответ исчерпывающий. И опять же, проблема вся в не полностью открытом вопросе ?!
|
04.07.2008, 23:53 | #7 |
Форумчанин
Регистрация: 04.03.2008
Сообщений: 176
|
А почему вопрос не полностью открыт? Все понятно, нужно цвет в стринг перевести, а если поконкретнее, то нужно его в текстовом файле
сохранить. |
05.07.2008, 07:16 | #8 |
Форумчанин
Регистрация: 07.08.2007
Сообщений: 154
|
типа FF0000 - красный, 00FF00 - зеленый, 0000FF - сниний? Если так то удачи
|
05.07.2008, 08:39 | #9 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
да не умножайте вы сущностей сверх необходимости!!
Цитата:
Прочитаете, сделаете обратную операцию. Пример. Код:
|
|
05.07.2008, 09:35 | #10 |
Участник клуба
Регистрация: 08.03.2008
Сообщений: 1,537
|
Существуют функции ColorToString и StringToColor.
Только надо не забыть подключить uses .... Graphics; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Color в цикле | Roof | Общие вопросы Delphi | 8 | 06.08.2008 15:07 |
Вопрос по String | Родион | Общие вопросы Delphi | 4 | 13.05.2008 15:34 |
Currency-string | Blackmore | Общие вопросы Delphi | 1 | 11.05.2008 09:22 |
Case из STRING. HELP! | Altera | Компоненты Delphi | 12 | 24.02.2008 12:17 |
string | medik | Помощь студентам | 12 | 29.10.2007 17:33 |