конфликт файла записей и компонентов формы

[Deathwatcher]

Проблемка в следующем. Есть file of record. Записи имеют вид:

TQuestion = Record
index:integer;
tekst:string[255];
right:string[100];
wrong1:string[100];
wrong2:string[100];
wrong3:string[100];

quest: array [1..50] of TQuestion;

Файл содержит базу данных с вопросами. Вопросы в произвольном порядке считываются и вместе с вариантами ответа передаются на форму. Вопрос отображается в Мемо, а ответы в RadioGroup. Засада в том, что все вопросы программкой обрабатываются нормально, но как только случайно выпадает вопрос №1, программа вылетает на строке

indexxx:=Form2.radiogroup1.iteminde x;

Ругаясь, на EAccessViolation! Помогите, пожалуйста...

[mihali4]

А то, что первый индекс в радиогруппе равен нулю, а не единице, вы учли?

[Mixasik]

indexxx:=Form2.radiogroup1.iteminde x;

Для чего используется данная строка?

[Deathwatcher]

учел... со всеми записями нормально работает, а с нулевой (т.е. начальной в файле) не хочет... мож кусок кода поможет...

Кусок события OnClick:

   reset(myfile);
   num:=nomera[count-1]-1;   // массив nomera содержит сгенерированный случайный порядок появления вопросов
   indexxx:=Form2.radiogroup1.itemindex; // вот тут падает
   if num<>0 then
     begin
     rec;
     seek(myfile,num);
     read(myfile,quest[num]); // далее чтение и отображение...


procedure Rec;
var a1,a2:string;
begin
   reset(myfile);
   with quest[maxcount+count-1] do
    begin
    index:=maxcount+count-1;
    tekst:=gettekst();
    a1:=gettekst(num);
    right:=select(num, indexxx);
    a2:=select(num, indexxx);
    end;
   Seek(myfile, FileSize(myfile));
   write(myfile, quest[count+maxcount-1]);
   reset(myfile);
end;


function gettekst(a:integer):string;
begin
reset(myfile);
Seek(myfile, a);
read(myfile,quest[a]);
Result:=trim(quest[a].tekst);
reset(myfile);
end;


function select(a, b:integer):string;
var rrr, www:string;
begin
  reset(myfile);
  Seek(myfile, a);
  read(myfile,quest[a]);
  rrr:=trim(quest[a].right);
  www:=trim(quest[a].wrong1);

// далее схема отбора правильного ответа

reset(myfile);
end;

Так вот. Для всех событий проходит, а для нулевого в файле(когда num=1) при событии OnClick, т.е. когда пытаюсь сохранить, он падает на жирной строчке... и почему-то count он сам обнуляет...

[mihali4]

"Падает" не на "жирной" строке, а на предыдущей:
num:=nomera[count-1]-1;
Вот и ищите, почему у вас в индекс приходит count=0 (а в результате индекс получается равным -1).
Приведенный кусок ни к чему - у вас раньше где-то ошибка.

[SunKnight]

Проблемка в следующем. Есть file of record. Записи имеют вид:

TQuestion = Record
index:integer;
tekst:string[255];
right:string[100];
wrong1:string[100];
wrong2:string[100];
wrong3:string[100];

quest: array [1..50] of TQuestion;

Если делаете тестер то я не советую вам создавать типизированный файл для хранения данных, так как длинна вопросов и ответов <255 символов и это плохо.

EAccessViolation!

Исключение генерируется при ошибочном доступе к памяти.

Исключение класса EAccessViolation генерируется во время выполнения при возникновении следующих ситуаций:

Попытка разыменования нулевого указателя nil.
Попытка записи в кодовую страницу.
Попытка доступа к адресу вне памяти, распределенной приложению.

В нашем случае косяк с radiogroup, наверно обращение идет к несуществующему обьекту (один из группы).

Разбираться в чужом листинге это зло.

[Deathwatcher]

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

не советую вам создавать типизированный файл для хранения данных

Я уже подумывал об этом... но пока в голову ничего более интересное не пришло ((( С удовольствием выслушаю подсказки.

[Deathwatcher]

Глюк победил... как не понимаю... вернулся на предыдущую версию программы и все кропотливо переписал... работаит!.. только одно не понятно... пытаюсь вынуть текст из RadioGroup, элемента, который выбирает пользователь... делаю это строкой

str:=RadioGroup.Items.Names[radiogroup.itemeindex];

и все время заносится пустое поле... если проверять step-by-step, то список items у компонента пуст!! но ведь они же отображаются!!! мистика какая-то!

[Deathwatcher]

Глюк победил... как не понимаю... вернулся на предыдущую версию программы и все кропотливо переписал... работаит!.. только одно не понятно... пытаюсь вынуть текст из RadioGroup, элемента, который выбирает пользователь... делаю это строкой

str:=RadioGroup.Items.Names[radiogroup.itemeindex];

и все время заносится пустое поле... если проверять step-by-step, то список items у компонента пуст!! но ведь они же отображаются!!! мистика какая-то!

[mihali4]

У вас что-то не в порядке. При чем тут Names?
Такая конструкция отрабатывает на раз:
Label1.Caption:=RadioGroup1.Items[RadioGroup1.ItemIndex];