Вопрос Как изменить цвет шрифта в зависимости от переменной?

zettend

Старожил
Здравствуйте.
У меня есть куча вариантов цветов.
Мне нужно их менять в зависимости от -c 1, 2 и т.д.
Где «-c» команда запуска в консоли.
Как это можно реализовать?)
 

Nemko

Старожил
Супер модератор
Оператор case of в помощь. В зависимости от ситуации сравнивать команду запуска.
var
Param: String;
Color: TColor;
.....
case Param of
'-c 1': Color:=clBlack;
'-c 2': Color:=clWhite;
else Color:=clNone;
end;
 
Сверху