var ATypeInfo: PTypeInfo; i:Tcolor; begin memo1.Clear; ATypeInfo := TypeInfo(Tcolor); for i:=high(tcolor)-40 to high(tcolor) do memo1.Lines.Add(GetEnumName(ATypeInfo, ord(i))); end;
или
var i:Tcolor; begin memo1.Clear; for i:=high(tcolor)-40 to high(tcolor) do memo1.Lines.Add(colortostring(i)); end;
Выдает список из номеров цветов, а не из их названий. Как можно взять имя цвета?
Все получилось Тока что-то не понял работу всего этого. В первой процедуре идет добавление в список и все. На кнопку мемо очищается и вызывается GetColorValues со странным параметром...
Получается что к этому массиву цветов нельзя просто так обратиться. Он описан где-то как недоступный для других модулей (в секции private модуля graphics)?