Курсовая работа: Создание программы на языке Delphi
56. case QNomber of
57. 0:begin
58. Label1.Caption:='Перечень пунктов главного меню содержит:';
59. Edit1.Visible:=False;
60. RadioButton1.Visible:=True;
61.
62. RadioButton1.Caption:='Испкавление, Редактирование, Компиляция';
63. RadioButton2.Visible:=True;
64. RadioButton2.Caption:='Рендеринг, Превью, Правка';
65. RadioButton3.Visible:=True;
66. RadioButton3.Caption:='Файл, Правка, Вставка';
67. RadioButton4.Visible:=True;
68. RadioButton4.Caption:='Отсчет, Компиляция, Рендеринг';
69. Button1.Caption:='Следующий вопрос';
70. inc(QNomber);
71. end;
72. 1:if QCheck=True then begin
73. if RadioButton3.Checked=True then ball:=ball+1;
74. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;
75. Label1.Caption:='Меню "Файл" содержит пункты:';
76. RadioButton1.Caption:='Создать, Открыть, Сохранить';
77. RadioButton2.Caption:='Вырезать, Вставить, Заменить';
78. RadioButton3.Caption:='Начать показ, Смена слайдов';
79. RadioButton4.Caption:='Шрифт, Оформление слайда, Разметка слайда';
80. inc(QNomber);
81. end;
82. 2:if QCheck=True then begin
83. if RadioButton1.Checked=True then ball:=ball+1;
84. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;