TColor получить имя константы, что то на подобие функции GetNameColor(var Color: TColor): string ?
Встречный вопрос - а в питоне есть?
Нет. Через массив. Из плюсов, любые имена и языки.
Функции есть.
А почему сразу через массив, я спросил у ГПТ, он тоже не знает, но показал неплохой код без массива 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;
Сделано через массив. Массив - базовая, самая быстрая структура в любом ЯП.
Массив конечно же быстрая штука, но в моей ситуации скорость не важна
Обсуждают сегодня