[LorDHeLeGaL]

Пользователь прошел тест.
Получился рейтинг. Он записывается в Label (Вы набрали "Н-ое" кол-во баллов),по нажатию на кнопку Button .
Но есть звания,(Новичок=0-5,Мастер=5-10,Профессионал=10-15 и т.д) т.е если он набрал от 0-5 баллов то в поле Label2 должно писаться "Новичок", если от 5-10 то туда же но "Мастер" и т.д например...
Как мне сделать чтоб это записывалось...Как только я не пробовал(начинающий)не чего не получается...
И чтоб при определенном звании выводилась картинка...соответствующая звании.
Подскажите как мне это реализовать...хоть правильное направление укажите. Буду благодарен безумно.

[PS11011010]

score - количество баллов

Код:

if ((score=>0)and(score<5))then Label2.Caption:='Новичок';
if ((score>=5)and(score<10))then Label2.Caption:='Мастер';
if ((score>=10)and(score<=15))then Label2.Caption:='Профессионал';

[Kingcss]

через case еще легче

[LorDHeLeGaL]

Сообщение от PS11011010

score - количество баллов

Код:

if ((score=>0)and(score<5))then Label2.Caption:='Новичок';
if ((score>=5)and(score<10))then Label2.Caption:='Мастер';
if ((score>=10)and(score<=15))then Label2.Caption:='Профессионал';

А куда это вписывать в ButtonClick?

[LorDHeLeGaL]

Сообщение от Kingcss

через case еще легче

Покажите как?

[nixel]

Сообщение от LorDHeLeGaL

А куда это вписывать в ButtonClick?

да, например, в buttonclick.

[LorDHeLeGaL]

Сообщение от nixel

да, например, в buttonclick.

Вписал,но не чего при расчетах не выводит....

[nixel]

Сообщение от LorDHeLeGaL

Покажите как?

Примерно так:

Код:

case score of
  0..5: Label2.Caption := 'Новичок';
  6..10: Label2.Caption := 'Мастер';
  11..15: Label2.Caption := 'Профессионал';
end;

если надо вместе с изменением кэпшна что-то делать с картинкой, то будет выглядеть примерно так:

Код:

case score of
  0..5: begin
              Label2.Caption := 'Новичок';
              Image1.Picture.Bitmap.LoadFromFile('блаблабла.пнг')
          end;
  ... //и так далее
end;

Приведите код целиком. Ну, по крайней мере часть, отвечающую за вывод всего этого добра

[LorDHeLeGaL]

Код:

Label10.CleanupInstance;
   x1:=46875*5*StrToInt(Edit1.Text);
   x2:=9375*5* StrToInt(Edit2.Text);
   x3:=1875*5*StrToInt(Edit3.Text);
   x4:=375*5* StrToInt(Edit4.Text);
   x5:=75*5* StrToInt(Edit5.Text);
   x6:=15*5*StrToInt(Edit6.Text);
   x7:=5*5* StrToInt(Edit7.Text);
   x8:=5*StrToInt(Edit8.Text);
   y:= x1+x2+x3+x4+x5+x6+x7+x8;
   Label10.Caption :=
   (Inttostr(y))+' !';

Вот расчет рейтинга...И в поле label2 выводит : Ваш рейтинг:.....
А в поле label3 не чего не выводит....

[nixel]

Сообщение от LorDHeLeGaL

Код:

Label10.CleanupInstance;
   x1:=46875*5*StrToInt(Edit1.Text);
   x2:=9375*5* StrToInt(Edit2.Text);
   x3:=1875*5*StrToInt(Edit3.Text);
   x4:=375*5* StrToInt(Edit4.Text);
   x5:=75*5* StrToInt(Edit5.Text);
   x6:=15*5*StrToInt(Edit6.Text);
   x7:=5*5* StrToInt(Edit7.Text);
   x8:=5*StrToInt(Edit8.Text);
   y:= x1+x2+x3+x4+x5+x6+x7+x8;
   Label10.Caption :=
   (Inttostr(y))+' !';

Вот расчет рейтинга...И в поле label2 выводит : Ваш рейтинг:.....
А в поле label3 не чего не выводит....

Так у Вас код выводит в 10ый лэйбл...

[LorDHeLeGaL]

Сообщение от nixel

Так у Вас код выводит в 10ый лэйбл...

Да,это я как пример написал что во 2

[angvelem]

Что должно выводиться в Label3? В коде про это ни строчки.

[nixel]

а зачем Вы делаете CleanupInstance?
Ведь это по сути почти удаление объекта.

Performs finalization on long strings, variants, and interface variables within a class.

Do not call CleanupInstance directly. CleanupInstance is called automatically when the object instance is destroyed.

[LorDHeLeGaL]

Сообщение от angvelem

Что должно выводиться в Label3? В коде про это ни строчки.

Так нет кода...исходя из полученных данных в Label10, должно в Label3 выводится 'Новичок','Про','Мастер'...и т.д...
А расчет такой:
От 0-5 : Новичок
От 5-10 : Бывалый
От 10-15 : мастер
И так далее...Последнее значение это от 100000 и больше...Профессионал.

[LorDHeLeGaL]

Я не знаю как это все отслеживать,и чтоб выводилась ниже соответствующая картинка....