Вопросы и ответы

Дата: 2000-06-02 00:00:00

Как преобразовать цвета в строку - название цвета VCL?

Модуль graphics.pas содержит функцию ColorToString() которое преобразует допустимое значение TColor в его строковое представление используя либо константу-название цвета (по возможности) либо шестнадцатиричную строку. Обратная функция - StringToColor()
Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Add(ColorToString(clRed));
   Memo1.Lines.Add(IntToStr(StringToColor('clRed')));
end;


Источник: Дельфи. Вокруг да около.