Работа с Random через RadioButton

[Vadja-Son]

Такая ситуация. Есть Edit, где ставится случайное число (1,2 или 3), есть 3 RadioButton с Caption 1, 2 и 3. Выбераем RadioButton, есле он совподает со случайным числом, то допустим Label (с Caption 100) отнимается 5, есле не совпадает, Label остаётся такимже. А у меня в любом случае убирает 5 (а иногда и 10 и 15). Помогите найти ошибку:

begin
   hit1:=StrToInt(RadioButton1.Caption);
   hit2:=StrToInt(RadioButton2.Caption);
   hit3:=StrToInt(RadioButton3.Caption);
   hith:=StrToInt(Edit8.Text);
   hitb:=StrToInt(Edit9.Text);
   hitf:=StrToInt(Edit10.Text);
   if hith=hit1 then
   begin
   label8.Caption:=IntToStr(StrToInt(label8.caption)-5);
   end;
   if hitb=hit2 then
   begin
   label8.Caption:=IntToStr(StrToInt(label8.caption)-5);
   end;
   if hitf=hit3 then
   begin
   label8.Caption:=IntToStr(StrToInt(label8.caption)-5);
   end;

   for t1:=0 to 2 do
      begin
      Edit8.Text:= Inttostr (1 + Random (2));
      Edit9.Text:= Inttostr (1 + Random (2));
      Edit10.Text:= Inttostr (1 + Random (2));
      end;
end;

[kashirin.p]

Че то я не въехал. У тебя же Edit три штуки. Давай задачу снова, по пунктам.
Код твой вообще не понимаю. Зачем последний цикл for?

[Vadja-Son]

Знач так. Там впринципе не важна сколько Edit, 3 RadioButton и 3 Edit, жмёшь 1 RadioButton (у него Caption 1), есле в 1 Edit выпало число 1, тогда в Label -5 допустим. Есле не совпало, Label -0 (тоесть остаётся как есть).

Цикл for для того, чтобы случайные числа выпадали от 1 до 2!

[kashirin.p]

Мош так? Я хз че ты хош сделать?

[Vadja-Son]

Ага, вот имаенно также и у меня сделано! Также отнимает от Label, даже есле Edit и RadioButton не равны!

[kashirin.p]

Сообщение от Vadja-Son

Ага, вот имаенно также и у меня сделано! Также отнимает от Label, даже есле Edit и RadioButton не равны!

Я хз че ты там напроверял, но работает все так как ты сказал. Если первый чекбокс выделен, то отнимается, когда в первом едите 1, если второй чекбокс выделен, то отнимается, когда во втором едите 2, ежели третий чекбокс выделен, то отнимается, когда в третьем едите 3.
Если я че то не понял, объясни по-человечески, что тебе нужно сделать.
Сейчас еще раз проверил, все работает.

[Vadja-Son]

Извеняй, точно всё равботает. Запутался. Огромное спасибо! А где у меня там ошибка была то?

[kashirin.p]

Сообщение от Vadja-Son

Извеняй, точно всё равботает. Запутался. Огромное спасибо! А где у меня там ошибка была то?

Не знаю где у тебя ошибка была. Написал все с нуля. Скорее всего ты не проверял выделен ли определенный радиобаттон (не выделен, а проверен. Короче Checked). Совпадало несколько и отнималось 10. совпадало три поля, отнималось 15.

[Vadja-Son]

Понятно. Столкнулся со следующей проблемой, вместо -5 мне нужно -А

А=С-В (допустим)

А,В и С это всё числа с Edit или с Label.

То не отнимает, то отнимает не то, что получается по формуле!

[kashirin.p]

Сообщение от Vadja-Son

Понятно. Столкнулся со следующей проблемой, вместо -5 мне нужно -А

А=С-В (допустим)

А,В и С это всё числа с Edit или с Label.

То не отнимает, то отнимает не то, что получается по формуле!

Если я правильно понял, то отнять нужно разницу двух остальных Edit'ов. Если да, то качай. Больше помогать не буду, т.к. задаешь очень простые вопросы (складывается ощущение, что делать сам(а) вообще не хочешь). Да и на вопрос по делфи вообще не похоже. Старайся сам найти ответ, быстрее научишься.