Программа демонстрирует использование компонента RadioButton. Программа вычисляет цену жалюзи, в зависимости от размера и материала, из которого они изготовлены.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | // щелчок на кнопке OK procedure TForm1.Button1Click(Sender: TObject); var w,h,s: real; // ширина, высота и площадь c: real; // цена за 1 кв.м. summ: real; // сумма st: string; // сообщение begin w := StrToFloat(Edit1.Text); h := StrToFloat(Edit2.Text); s := w * h / 10000; if RadioButton1.Checked then c := 360 // выбран переключатель "алюминий" else c := 180; // выбран переключатель "пластик" summ := s * c; st := 'Размер: ' + Edit1.Text + 'x' + Edit2.Text + ' см' + #10 + 'Материал: '; if RadioButton1.Checked then st := st + 'алюминий' else st := st + 'пластик'; st := st + #10 + 'Сумма: ' + FloatToStrF(summ, ffCurrency, 6,2); Label3.Caption := st; end; |