Курсовая работа: Создание программы на языке 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;

К-во Просмотров: 417
Бесплатно скачать Курсовая работа: Создание программы на языке Delphi