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;