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

81. begin

82. ln:=Length(test);

83. SetLength (test, ln+1);

84. test[ln].vopr:= _vopr;

85. test[ln].ans[0]:= _ans0;

86. test[ln].ans[1]:= _ans1;

87. test[ln].ans[2]:= _ans2;

88. test[ln].ans[3]:= _ans3;

89. test[ln].korans:= _korans;

90. end;

91. // перемешивание базы вопросов

92. Procedure CVoprosi. Mix;

93. var

94. i, i1, i2, ln:byte;

95. TestTmp:TTest;

96. begin

97. ln:=Length(test);

98. for i:=1 to 20 do

99. begin

100. i1:=Random(ln); // случайный №1

101. i2:=Random(ln); // случайный №2

102. // меняем местами вопросы №1 и №2

103. TestTmp:=test[i1];

104. test[i1]:=test[i2];

105. test[i2]:=TestTmp;

106. end;

107. end;

108. procedure TFormTest. FormCreate (Sender: TObject);

109. begin