Курсовая работа: Создание программы на языке Delphi

86. RadioButton1.Caption:='Создать, Открыть, Сохранить';

87. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

88. RadioButton3.Caption:='Начать показ, Смена слайдов';

89. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

90. inc(QNomber);

91. end;

92. 3:if QCheck=True then begin

93. if RadioButton3.Checked=True then ball:=ball+1;

94. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

95. Label1.Caption:='Меню "Правка" содержит пункты:';

96. RadioButton1.Caption:='Создать, Открыть, Сохранить';

97. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

98. RadioButton3.Caption:='Начать показ, Смена слайдов';

99. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

100. inc(QNomber);

101. end;

102. 4:if QCheck=True then begin

103. if RadioButton2.Checked=True then ball:=ball+1;

104. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

105. Label1.Caption:='Меню "Формат" содержит пункты:';

106. RadioButton1.Caption:='Создать, Открыть, Сохранить';

107. RadioButton2.Caption:='Вырезать, Вставить, Заменить';

108. RadioButton3.Caption:='Начать показ, Смена слайдов';

109. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';

110. inc(QNomber);

111. end;

112. 5:if QCheck=True then begin

113. if RadioButton4.Checked=True then ball:=ball+1;

114. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;