Проблема с Delphi
2001
7
Помогите преобразовать переменную типа TColor в String.

Нужно считать с экрана цвет пиксел (это работает точно),
а потом вывести его в Edit1....

Пробовал Tcolor -> Int -> String тоже не получается.
Если бы на C++, то создаешь такую вещь:

union xxx{
TColor a;
unsigned char b[4];
}z;

И усе. В поле "a" присваиваешь значение цвета, а из массива b берешь его составляющие по цветам. При желании преобразовываешь их в строки.

Для Дельфи посмотри есть ли аналог union.
ColorToRGB?

---
Full http://full.nm.ru
-------
Толк из меня вышел - а вот бестолочь осталась.
Full
Я так понял, ему нужно на составляющие разложить, а не просто в целое преобразовать. В целое он это уже преобразовывал.:улыб:
Cactus
Дык берем гугль и суем ему ColorToRGB и получаем ответ
От:AlanGLLoyd (alanglloyd@aol.com)
Заголовок:Re: Konverting from TColor to HTML-Color-System (Hex?)
View: Complete Thread (5 сообщений)
Original Format
Группы новостей:comp.lang.pascal.delphi.misc
Число:1999/02/22


In article , "Graham Pyne"
writes:

>function FixColor(OldColor: longint): longint;
>var Red, Green, Blue: Longint;
>begin
> Red := (OldColor and $ff0000) shr 16;
> Green := OldColor and $00ff00;
> Blue := (OldColor and $0000ff) shl 16;
> Result := Red or Green or Blue;
>end;

Surely that is a RGB to TColor coversion - not from TColor.

HTML is the same as windows RGB, so use the Delphi ColorToRGB() function.


Alan Lloyd
alanglloyd@aol.com
---
Full http://full.nm.ru
-------
Только сядешь поpаботать - обязательно кто-нить pазбyдит!!!
Если правильно помню тип TColor это и есть как integer. Очевидно, если Color:=clBlack, то в String надо записать "черный". Тогда надо строить таблицу соответствия, типа

function ColorToString(Color:TColor):string;
begin
case Color of
clBlack: Result:='Чёрный';
clWhite: Result:='Белый';
.
.
end;
end;
Full
Ну вы намутили! Но все равно большое спасибо вам!!!
А я спрашивал про colorToString();! Кто бы знал что так все просто???
я знал.

но, извините, такие задачи ставят школьникам начальной школы... а не обсуждают в форуме программистов.