> procedure p4MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> procedure p4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> procedure p5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> procedure p5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> procedure N1Click(Sender: TObject);
> procedure N2Click(Sender: TObject);
> procedure N4Click(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
>private
> { Private declarations }
> procedure start; //начало теста
> procedure question_select; //выбор вопроса
> procedure vars(var variant: integer); {сортировка и определение правильного варианта ответа}
> procedureverno(); {проверка: правильно ли ответил пользователь}
>public
> { Public declarations }
>end;
>var
> Form1: TForm1;
> i, a, n, balls, vopr: integer; {различные счетчики и переменные для подсчета баллов}
> dir, dir2, ss, zz, yes: string; {путь к файлу с вопросами, к программе и расшифрованной базе}
> win: TIniFile; //переменная для работы с ini-файлами
> mass: array[1..100] of integer; {содержит номера уже заданных вопросы, чтобы они не повторялись}
> f1, f2: file of char; //переменные для работы с файлами
> сор: char; //для работы с каждым символом отдельно
>implementation
>{$R *.dfm}
>procedure TForm1.vars(var variant: integer);
>begin
> //вызываем процедуру выбора случайного вопроса question_select();
> case variant of
> 1:
> begin
> Win:= TIniFile.Create(dir2); //открываем ini-файл
> //считываем вопрос
> Memo1.Text:= Win.ReadString('Q', IntToStr(a), Memo1.Text);
> //считываем правильный вариант ответа
> an1.Caption:= Win.ReadString('A', IntToStr(a), an1.Caption);
> //считываем три неверных варианта к данному вопросу
> an2.Caption:= Win.ReadString('W1', IntToStr(a), an2.Caption);
> an3.Caption:= Win.ReadString('W2', IntToStr(a), an3.Caption);
> an4.Caption:= Win.ReadString('W3', IntToStr(a), an4.Caption);
> Win.Free; //освобождаем ini-файл
> //помечаем первый вариант как правильный
> yes:= an1.Caption;
> end;
> 2:
> begin
> Win:= TIniFile.Create(dir2);
> Memo1.Text:= Win.ReadString('Q', IntToStr(a), Memo1.Text);
> an2.Caption:= Win.Readstring('A', IntToStr(a), an2.Caption);
> an1.Caption:= Win.Readstring('W1', IntToStr(a), an1.Caption);
> an3.Caption:= Win.ReadString('W2', IntToStr(a), an3.Caption);
> an4.Caption:= Win.ReadString('W3', IntToStr(a), an4.Caption);
> Win.Free;
