Показать сообщение отдельно
  #3  
Старый 18.03.2021, 21:37
Irina_alex Irina_alex вне форума
Прохожий
 
Регистрация: 17.03.2021
Сообщения: 4
Версия Delphi: Delphi Xe
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimr
Вариант написанный на коленке
Код:
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;
Админ: Пользуемся тегами при оформлении кода!



Спасибо большое! Но код почему - то не срабатывает =(
Ответить с цитированием