Код:
procedure TForm1.SpeedButton17Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: begin
if radiobutton1.Checked then
label6.Caption:='jgjgjgjgj'
else if radiobutton2.Checked then
label6.Caption:='jgjg1121'
end;
1: begin
if radiobutton1.Checked then
label6.Caption:='jgjgjgjgj'
else if radiobutton2.Checked then
label6.Caption:='jgjg1121'
end;
2: begin
if radiobutton1.Checked then
label6.Caption:='jgjgjgjgj'
else if radiobutton2.Checked then
label6.Caption:='jgjg1121'
end;
end;
end;
Admin: Пользуемся тегами!
Суть данной процедуры в том,ч то после нажатия кнопки - Расчет- происходит,вначале проверка, radiobutton в radiogroup1, далее происходит проверка radiobutton в radiogroup2. И взависимоти от того какой radiobutton выбран, применяется формула для математических расчетов. А цифры для данных расчетов находятся в Excel файле(там таьлица со значениями-цена товара и его коэффициент). Файл Excel необходим, что бы если поменяются цена и коэффициент не переписывать программу, а просто обновить Excel файл.