Курсовая работа: Разработка программы с помощью языка программирования Delphi

51. procedure FormActivate (Sender: TObject);

52. private

53. {Private declarations}

54. public

55. {Public declarations}

56. end;

57. TTest = record

58. vopr:string; // вопрос

59. ans:array [0..3] of string; // ответы

60. korans:byte; // номер правильного ответа

61. end;

62. CVoprosi = class

63. test: array of TTest;

64. procedure AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string;_korans:byte);

65. procedure Mix;

66. end;

67. var

68. SFam, Sgr:string; // фамилия и группа учащегося

69. fName:string;

70. f: TEXTFILE;

71. FormTest: TFormTest;

72. BasaV:CVoprosi;

73. CurN:byte; // номер текущего вопроса

74. Ratio:byte; // количество правильных ответов

75. implementation

76. uses Unit2;

77. {$R *.dfm}

78. // метод для добавления нового теста в базу

79. Procedure CVoprosi. AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string; _korans:byte);