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

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

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

13 ответов

11 просмотров

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

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

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

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
Сделано через массив. Массив - базовая, самая быст...

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

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

Нехрен изобретать велосипеды. Classes.IntToIdent Graphics.Colors Graphics.ColorToIdent Graphics.ColorToString

DELPHI SOLUTIONS- Автор вопроса
Alexey Gavrilov
Нехрен изобретать велосипеды. Classes.IntToIdent G...

Он выводит в текст только название констант TColor, но есть еще константы TAlphaColor

Vcl.Graphics.ColorToIdent Чисто случайно нашёл, вообще кой что другое искал, но вспомнил что ты просил "шобы было как в питонИ! няняня!"

notme
пропустил 👌

Много, очень много прикольного лежит в папках source и samples Md5, CommandParser...

DELPHI SOLUTIONS- Автор вопроса
Alexey Gavrilov
Много, очень много прикольного лежит в папках sour...

Да, примеров много и много полезного на чем можно обучиться, но на все времени не хватает, Я много раз бывал в эрмитаже так там гиду говорят что в хранилищах эрмитажа столько экспонатов, что если на каждый потратить 1 минуте то их за 10 лет не пересмотреть

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

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

30500 за редактор? )
Владимир
47
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
1
Он в одиночку это дело запилил или была какая-то команда?
Aquinary
12
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Всем привет, нужна как никогда, нужна помощь с IO в загрузчике. Пишу в code16 после установки сегментных регистров, пишу вывод символа. Пробовал 2 варианта: # 1 mov $0x0E, %a...
Shadow Akira
14
Карта сайта