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;
Сделано через массив. Массив - базовая, самая быстрая структура в любом ЯП.
Массив конечно же быстрая штука, но в моей ситуации скорость не важна
Нехрен изобретать велосипеды. Classes.IntToIdent Graphics.Colors Graphics.ColorToIdent Graphics.ColorToString
Он выводит в текст только название констант TColor, но есть еще константы TAlphaColor
Vcl.Graphics.ColorToIdent Чисто случайно нашёл, вообще кой что другое искал, но вспомнил что ты просил "шобы было как в питонИ! няняня!"
https://t.me/DelphiCommunity/108435
Много, очень много прикольного лежит в папках source и samples Md5, CommandParser...
Да, примеров много и много полезного на чем можно обучиться, но на все времени не хватает, Я много раз бывал в эрмитаже так там гиду говорят что в хранилищах эрмитажа столько экспонатов, что если на каждый потратить 1 минуте то их за 10 лет не пересмотреть
Обсуждают сегодня