Не работает выборка из Tradiogroup

[Алексей_2012]

Здравствуйте! Пишу тест по информатике, половину проблем решил, а другую половину не могу, решил использовать tradiogroup, и наткнулся на проблему с выборкой, решил реализовать через case (для проверки выбранный ответ решил выводить в каптион формы 2, ну до этого и в мемо пытался, но все одно и то же, ничего не выводится(( )

Вот сама процедура, а ниже файл проекта

procedure TForm2.Button1Click(Sender: TObject);
begin
 if i=0 then begin Button1.Caption:='Следующий вопрос'; Button1.Top:=RadioGroup1.Top+200;  end;
 if k>=20 then begin showmessage(''); i:=0; k:=0; end;
 Inc(k);
 if Trim(Copy(ts.Strings[i],1,1))='-' then
 StaticText1.Caption:=IntToStr(k)+') '+Copy(ts.Strings[i],2,Length(ts.Strings[i])-1);
 inc(i);
 RadioGroup1.Items.Clear;
 repeat
 begin
 RadioGroup1.Items.Add(ts.Strings[i]);
 Inc(i);
 end;
 until Trim(Copy(ts.Strings[i],1,1))='-';
  case RadioGroup1.ItemIndex of
  0:Form2.Caption:=RadioGroup1.Items[0];
  1:Form2.Caption:=RadioGroup1.Items[1];
  2:Form2.Caption:=RadioGroup1.Items[2];
  3:Form2.Caption:=RadioGroup1.Items[3];
  4:Form2.Caption:=RadioGroup1.Items[4];
  end;
end;

[BDA]

Многое можно написать короче.
Исправил само тестирование (см. как хранятся ответы в 1 тесте).

За надежность не ручаюсь.

[Алексей_2012]

а изначально планировалось написать так, в файл который вы удалили, О1, были записаны номера правильных ответов

 var kmm:byte;
         ....................
 case RadioGroup1.ItemIndex of
  0:kmm:=1;
  1:kmm:=2;
  2:kmm:=3;
  3:kmm:=4;
  4:kmm:=5;
  end;

далее сравниваем выбранный вариант с тем, который находится в файле (в соответствии с вопросом) т.е если вопрос 5, то seek(f,5-1);

if w.nom=kmm then showmessage('верно') else showmessage('неверно!')

это я и сам сделаю(уже писал тесты с одинаковым количеством вариантов ответа), главное выборку саму подправить

[Алексей_2012]

Ну кто-нибудь может скачать почему не работает выборка?

[BDA]

Забыл про Вашу тему.
Во-первых, хранение вопросов и ответов в разных файлах необоснованно. Лучше зашифровать весь файл теста.
Во-вторых, Вы посмотрели, как у меня происходит подсчет ответов? У Вас же сначала происходит очистка RadioGroup (подозреваю, что itemIndex сбрасывается при этой операции в -1), а затем Вы пытаетесь определить выбранный вариант.

Вообще, у Вас очень запутанная получается программа.

[Алексей_2012]

Ну во первых не вижу смысла зашифровывать файл, т.к тест будет использоваться 1 раз для проведения экзамена у первых курсов, во вторых просто не умею)

а с подобным алгоритмом тест уже писал, только там не было радиогруппы

[alextrof94]

Вы недооцениваете первые курсы... Я ведь тоже первокурсник. И вообще, не проще готовое решение использовать, а не свое писать?

[BDA]

И вообще, не проще готовое решение использовать, а не свое писать?

По этому совету большинство и учится. Потом приходят и клянчат решение, если не смогли/не захотели найти готовое.

Так что пусть пишет свое решение, которое пока не будет блистать красотой, безопасностью, оптимальностью, зато принесет некий опыт ТСу.

Алексей_2012, простейшее шифрование никогда не повредит. Тестируемому будет сложнее скопировать вопросы или, по крайней мере, быстро получить их в читаемом виде.

[Алексей_2012]

А как можно зашифровать? Просто необходимости не было в шифровке, вот и не знаю как с ней работать.

[alextrof94]

Простое шифрование это
Текст_бла_бла XOR парольпарольп
Причем если 1 раз пропускаешь, то шифруется, а если второй - расшифровывается.
Загугли "шифрование Xor".