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

171. // текущий вопрос 0

172. curN:=0;

173. // отображаем первый вопрос на форме

174. StaticText1. Caption:=BasaV.test[curN].vopr;

175. RGroup1. Items[0]:=BasaV.test[curN].ans[0];

176. RGroup1. Items[1]:=BasaV.test[curN].ans[1];

177. RGroup1. Items[2]:=BasaV.test[curN].ans[2];

178. RGroup1. Items[3]:=BasaV.test[curN].ans[3];

179. RGroup1. ItemIndex:=0;

180. Ln:=Length (BasaV.test);

181. LbNom. Caption:= IntToStr (curN+1) + ' из ' + IntToStr(Ln);

182. end;

183. // ***************************

184. // обработчик нажатия на кнопку «Принять ответ»

185. // ***************************

186. procedure TFormTest. BitBtn1Click (Sender: TObject);

187. var

188. sRes, S:string;

189. ln:byte;

190. begin

191. // проверка ответа

192. Ln:=Length (BasaV.test);

193. if (CurN<ln) then

194. begin

195. // записываем лог ответов в файл

196. S:= BasaV.test[curN].vopr + ' (ответил: – '+

197. BasaV.test[curN].ans [RGroup1. ItemIndex]+')';

198. writeln (f, S);

199. // проверяем, правильно ли был сделан ответ