If RadioButton1.Checked then

Price:=Price+Const1

Else

If RadioButton2.Checked then

Price:=Price+Const2;

If CheckBox1.Checked then

Price:=Price+Const3;

If CheckBox2.Checked then

Price:=Price+Const4;

Label2.Caption:=IntToStr(Price);

End;

Рис 2.8

Где Const1, Const2, Const3, Const4-константы, помещённые в разделе описания констант:

Const Const1=1000;

Const2=500;

Const3=300;

Const4=200;

Результат суммирования есть целое число, которое может быть выведено в окно Label2 только после обратного преобразования типов данных из целого в текст - с помощью стандартной функции IntToStr. Имя обработчику события ButtonClick система присвоила сама.

Контрольные вопросы.

1. Какие средства являются основой визуального программирования в среде Delphi?

2. Какие задачи решает среда Delphi в процессе программирования?

3. Какие задачи решает программист в процессе программирования?

4. Как помещаются на форму компоненты и настраиваются компоненты?

5. Как создаются обработчики событий?

Не нашли, что искали? Воспользуйтесь поиском: