Оператор If Then и переменные

[demiancz]

Здравствуйте. Я новичек. Потому и прошу помощи.
Есть НЕ правильный код в котором при нажатии на кнопку переменная t получает то значение которое нужно, а вот переменная k получает значение 140 независимо от того какой RadioButton выбран.

Код:

if ModuleForm.RadioButton1.Checked then
t:=1;
k:=20;
if ModuleForm.RadioButton2.Checked then
t:=21;
k:=40;
if ModuleForm.RadioButton3.Checked then
t:=41;
k:=60;
if ModuleForm.RadioButton4.Checked then
t:=61;
k:=80;
if ModuleForm.RadioButton5.Checked then
t:=81;
k:=100;
if ModuleForm.RadioButton6.Checked then
t:=101;
k:=120;
if ModuleForm.RadioButton7.Checked then
t:=121;
k:=140;
if ModuleForm.RadioButton8.Checked then
t:=1;

Если записать вот так:

if ModuleForm.RadioButton1.Checked then
t:=1;
if ModuleForm.RadioButton2.Checked then
t:=21;
if ModuleForm.RadioButton3.Checked then
t:=41;
if ModuleForm.RadioButton4.Checked then
t:=61;
if ModuleForm.RadioButton5.Checked then
t:=81;
if ModuleForm.RadioButton6.Checked then
t:=101;
if ModuleForm.RadioButton7.Checked then
t:=121;
if ModuleForm.RadioButton8.Checked then
t:=1;

if ModuleForm.RadioButton1.Checked then
k:=20;
if ModuleForm.RadioButton2.Checked then
k:=40;
if ModuleForm.RadioButton3.Checked then
k:=60;
if ModuleForm.RadioButton4.Checked then
k:=80;
if ModuleForm.RadioButton5.Checked then
k:=100;
if ModuleForm.RadioButton6.Checked then
k:=120;
if ModuleForm.RadioButton7.Checked then
k:=140;

то все работает правильно. Но это как то тупо. Ведь вдруг мне нужно будет при условии присвоить значении 5-6 переменным...

Помогите пожалуйста упростить код. Как правильно записать условие при котором 2 и более переменным присваивалось нужное значение?

[Аватар]

if ModuleForm.RadioButton1.Checked then begin
  t:=1;
  k:=20;
end
else if ModuleForm.RadioButton2.Checked then begin
  t:=21;
  k:=40;
end
else ...
end;

Если это в событии OnClick то можно все гораздо эстетичней решить

[Serge_Bliznykov]

if ModuleForm.RadioButton1.Checked then begin
t:=1;
k:=20;
end;
if ModuleForm.RadioButton2.Checked then begin
t:=21;
k:=40; 
end;

и т.д.

а вообще, это т.н. индусский код
если уж по другому нельзя - выносите константы в массив и берите их по номеру баттона оттуда...

[demiancz]

Спасибо большое. Работает.

[Stilet]

если уж по другому нельзя

Можно конечно.
Задать компоненту свойство TAG согласно контрольному числу:

ModuleForm.RadioButton1.Tag:=1;

Описать для всех их одно и то же событие

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 k:=TRadioButton(sender).Tag;
end;

И не парить комп мегапрограммами