Изменить Label в зависимости от значения

Irina_alex · #1 17.03.2021, 02:34

Доброго времени суток, уважаемые эксперты! Подскажите пожалуйста как сделать так чтобы Label2 менял свое название и цвет в зависимости от значения в Label1. Например если в Label 1 будет значение меньше 0, то текст будет "плохо" и вет красный
Значение ниже 5, это удовлетворительно и цвет к примеру оранжевый
Значение в диапазоне от 5,1 до 10,0 - хорошо и цвет фиолетовый
Если индекс больше 10, то отлично и цвет зеленый.
Пытался сделать с помощью if else, но что - то не выходит! Подскажите как это можно проще оформить! Спасибо!

Vladimr · #2 17.03.2021, 11:45

Вариант написанный на коленке

Код:

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;

Админ: Пользуемся тегами при оформлении кода!

Irina_alex · #3 18.03.2021, 21:37

Цитата:

Сообщение от 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;

Админ: Пользуемся тегами при оформлении кода!

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Vladimr за это полезное сообщение:
Irina_alex (26.03.2021)