[Irina_alex]

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

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

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