169 похожих чатов

Всем привет! Есть ли встроенные средства в делфи которые могут из

TColor получить имя константы, что то на подобие функции GetNameColor(var Color: TColor): string ?

6 ответов

5 просмотров

Встречный вопрос - а в питоне есть?

Нет. Через массив. Из плюсов, любые имена и языки.

Функции есть.

DELPHI SOLUTIONS- Автор вопроса
Alexey Gavrilov
Нет. Через массив. Из плюсов, любые имена и языки.

А почему сразу через массив, я спросил у ГПТ, он тоже не знает, но показал неплохой код без массива function GetColorName(Color: TColor): string; begin case Color of clBlack: Result := 'clBlack'; clMaroon: Result := 'clMaroon'; clGreen: Result := 'clGreen'; clOlive: Result := 'clOlive'; clNavy: Result := 'clNavy'; clPurple: Result := 'clPurple'; clTeal: Result := 'clTeal'; clGray: Result := 'clGray'; clSilver: Result := 'clSilver'; clRed: Result := 'clRed'; clLime: Result := 'clLime'; clYellow: Result := 'clYellow'; clBlue: Result := 'clBlue'; clFuchsia: Result := 'clFuchsia'; clAqua: Result := 'clAqua'; clWhite: Result := 'clWhite'; clMoneyGreen: Result := 'clMoneyGreen'; clSkyBlue: Result := 'clSkyBlue'; clCream: Result := 'clCream'; clMedGray: Result := 'clMedGray'; clNone: Result := 'clNone'; clDefault: Result := 'clDefault'; else Result := Format('$%.8x', [Color]); // Возвращает в HEX, если цвет не стандартный end; end;

DELPHI SOLUTIONS
А почему сразу через массив, я спросил у ГПТ, он т...

Сделано через массив. Массив - базовая, самая быстрая структура в любом ЯП.

DELPHI SOLUTIONS- Автор вопроса
Alexey Gavrilov
Сделано через массив. Массив - базовая, самая быст...

Массив конечно же быстрая штука, но в моей ситуации скорость не важна

Похожие вопросы

Обсуждают сегодня

Всем привет! Имеется функция: function IsValidChar(ch: UTF8Char): Boolean; var i: Integer; ValidChars: AnsiString; begin ValidChars := 'abcdefghijklmnopqrstuvwxyzABCDE...
Евгений
44
Чтобы перехватить все нажимания буков на форме, надо хук ставить? Пробовал на форме ОнКейДаун, оно ловит клаву если фокус не на компоненте с вводом текста
Serjone
15
лучше скажите, причём тут паскаль?
Alexey Kulakov
36
Всем привет! вывожу на общей стр дочерние ресурсыв каждом ресурсе галерея, и первая фотка должна выводиться на общей [!DocLister? &prepare=photo !]
Alekso
12
А можно вопрос? Мне сегодня сказали что у меня функция (которая просто заполняет массив значениями) не правильная void Full(double * arr, int n) { for (int i = 0; i < n; i...
† C E †
7
День добрый, подскажите пожалуйста, есть ли какой-то способ сказать ребару не компилировать определённое приложение? Всю доку их перечиатл ничего подобного не нашёл
Кирилл
14
Добрый вечер. Хочу чтобы у меня в классе поле было функцией, которая возвращает строку. Делаю так: interface ... TGetOutPath = function : String of object; ... protec...
Kirill Filippenok
12
Народ! Впервые клиенту пришло письмо от РКН, у вас, дескать, есть яндекс метрика, а нигде не написано, что вы ее юзаете. Никто не сталкивался?
Sasha Beep
10
Это может быть все-таки не флудвейт? у меня ботфазер принимает изменения и отображает даже что они изменились, на видео видно что он прислал якобы уже измененное описание, н...
OVERLINK
13
Здравствуйте, хочу сделать HelloWorld в консоли Дельфи, но функция API ничего не выводит, что я делаю не так? program Hello; {$APPTYPE CONSOLE} uses System.SysUtils, WinAPI.Wi...
Sergey Vinogradov
20
Карта сайта