Показать сообщение отдельно
  #2  
Старый 17.03.2021, 11:45
Vladimr Vladimr вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 41
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Вариант написанный на коленке
Код:
If strtofloat(Label1.caption)<0 then
begin
Label2.caption:='плохо';
Label2.color:=clred;
end
else
if (strtofloat(Label1.caption)>5)and(strtofloat(Label1.caption)<=10) then
begin
Label2.caption:='хорошо';
Label2.color:=clFuchsia;
end
else
begin
Label2.caption:='удовлетворительно';
Label2.color:=clYellow;
end;
Админ: Пользуемся тегами при оформлении кода!
Ответить с цитированием