Delphi 7, Тест диплом горит

[keksikovna]

написала тестик, не правильно отображаются вопросы и ответы к ним помогите, уже две недели не могу исправить защита 23

[newerow1989]

Ошибка здесь:

an2.Caption:= Win.Readstring('А', IntToStr(a), an2.Caption);
an1.Caption:= Win.Readstring('W1', IntToStr(a), an1.Caption);

Первый параметр записан неправильно: 'А' и 'W1'.
Видимо буква А - русская или английская, а W1 вместо Wl

[Serge_Bliznykov]

ошибка здесь:

//dir2:= 'C:\Users\Анюта\Desktop\Diplom\bloknot\3.ini'; //путь к расшифрованной базе

по всей видимости нет такого пути и/или нет доступа.
А ошибок не возникает, т.к. кто-то их просто взял и отключил (см. {$I-} //отключаем контроль ошибок ввода/вывода. )


я изменил путь к декодируемому файлу так:
процедура FormCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
   //получаем каталог, в котором находится наша программа
  dir := ExtractFilePath(Application.ExeName);
  ss := dir + '3.ini'; //путь к базе вопросов
  zz := ss;
  start(); //начинаем тест
end;

процедура start()

procedure TForm1.start();
begin
   ........
  //dir2:= 'C:\Users\Анюта\Desktop\Diplom\bloknot\3.ini'; //путь к расшифрованной базе
  dir2 := dir + 'xxx.dat'; //путь к расшифрованной базе - файл создаётся в каталоге программы.
....

после этого что-то как-то начало работать, вопросы начали отображаться.

но. хочу скачать, что код просто УЖАСНЫЙ.
множество бессмысленных глобальных переменных, которые иницилизируются неизвестно где и неизвестно как.
шифрация INI файла, которые должен быть расшифрован перед запуском программа (да ещё и не удаляется после завершения и т.д. и т.п.)

[newerow1989]

Сообщение от Serge_Bliznykov

не удаляется после завершения

Зато попытки к удалению были:
Безымянный.png

[Serge_Bliznykov]

Сообщение от newerow1989

Зато попытки к удалению были:

да, я видел этот код.
так никто и не говорит, что их не было
просто попытка удаления была не совсем удачная.

[newerow1989]

Безымянный.png
Одна и та же кнопка

[keksikovna]

Сейчас все работает проблема в том что вопросы задает повторно вот:

procedure TForm1.question_select();
begin
Randomize;
a:=Random(4);
for i:=0 to n-1 do begin
if mass[i]= a then
question_select()
else mass[i]:= a;
end;

[newerow1989]

procedure TForm1.question_select();
var d:boolean;
begin
Randomize;
Repeat
   d:=true;
   a:=1+Random(n);
   for i:=1 to n do
   if mass[i]= a then
      d:=false;
   If d then
      mass[a]:=a;
Until d;
a:=a-1;
//сбрасываем флажки со всех вариантов ответов
an1.Checked:= False;
an2.Checked:= False;
an3.Checked:= False;
an4.Checked:= False;
end;

[keksikovna]

Большое спасибо, извиняюсь за ваше потраченное время на такую глупую программу

[newerow1989]