Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Преобразование   Найти похожие ветки 

 
webpauk   (2005-06-24 10:13) [0]

Как преобразовать строку "clBlack" в цвет clBlack?


 
-=XP=- ©   (2005-06-24 10:16) [1]

Color := StringToColor("clBlack");


 
dmitry501 ©   (2005-06-24 10:16) [2]

webpauk   (24.06.05 10:13)
Это разные объекты и приведение типов сделать нельзя. "clBlack" это виртуальный объект, существующий только в человеческом разуме, а цвет это реальный объект, воспринимаемый глазами...


 
boalse ©   (2005-06-24 10:21) [3]

Color := IdentToColor("clBlack")

где Color: TColor или :Integer - то есть цвет.


 
webpauk   (2005-06-24 10:22) [4]


> -=XP=- ©
Спасибо


 
boalse ©   (2005-06-24 10:22) [5]

Эээ пардон

function IdentToColor(const Ident: string; var Color: Longint): Boolean;

отсюда следует:

IdentToColor("clBlack", Color )


 
-=XP=- ©   (2005-06-24 10:27) [6]

Это разные объекты и приведение типов сделать нельзя. "clBlack" это виртуальный объект, существующий только в человеческом разуме, а цвет это реальный объект, воспринимаемый глазами...

Автор просил преобразовать строковую константу в значение переменной типа TColor. При чем тут "приведение типов"?

Поясните, что обозначают Ваши утверждения (подчеркнуто), и какое отношение все сказанное имеет к Delphi?


 
dmitry501 ©   (2005-06-24 10:35) [7]

-=XP=- ©   (24.06.05 10:27) [6]
Поясните, что обозначают Ваши утверждения (подчеркнуто), и какое отношение все сказанное имеет к Delphi?
К Delphi никакого.



Страницы: 1 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.053 c
1-1119522002
intaari
2005-06-23 14:20
2005.07.11
Сохранение/чтение отчета fast report из BLOd поля


14-1118754638
_HawkEye
2005-06-14 17:10
2005.07.11
у кого нить есть полное описание модели COCOMO II


6-1112793722
Alexander Panov
2005-04-06 17:22
2005.07.11
Получение кода ошибки в Indy.


14-1117999906
NeoVariant
2005-06-05 23:31
2005.07.11
Кто ловит музыку в ON-LINE!!! ВАМ СЮДА!!!


1-1119523292
samuel
2005-06-23 14:41
2005.07.11
Как запустить программу как сервис?