Добрый день, пишу программку для создания и прохождения тестов суть которой в кратце - Любой желающий создает Тест, который сохраняется ввиде .dat(ввиде одной записи) файла, вписывает туда вопросы, варианты ответов и количество баллов за правильный ответ из Еdit'ов и не выходя из программы имеет возможность посмотреть что у него получилось.
Возникла такая проблема - как блин
правильно организовать привязку количества балов к каждому вопросу?
переменные теста я организовываю так:
Код:
const
NQ=100;//максимальное число вопросов
NA=3;//максимальное число ответов
type
t_Test=record
QW:array[1..NQ] of String[200]; //массив вопроса
An:array[1..NQ,1..NA] of String[100];//ответы двумерный массив
Ra:array[1..NQ] of integer;//правильный ответ
Bb:integer;//запись баллов за правильный ответ
zapis_K:byte; //файловая переменная для записи кол-ва вопросов
zapis_B_vsego:byte;//файловая переменная для записи кол-ва баллов
Res:array [1..NQ] of integer;//результат
end;
var
Test:t_Test;
FTest:File of t_Test; //файл для создания теста
n:byte; //текущий вопрос
k:byte; //количество вопросов
ball:integer; //баллы
FileName:String;
Баллы у меня это просто какоето значение(по умолчанию=0), которое при правильном ответе равно
Код:
if RadioButton1.Checked then begin //Если правильный 1 ответ то
Test.RA[n] := 1; //ему присваивается Радиокнопка 1
ball:=ball+Strtoint(Edit6.Text); //и зачисляется количество баллов(подсчет суммы баллов за все вопросы)
Test.Bb:=ball;
значению Edita6, тут же я записываю значение ball в файл, но когда я считываю информацию из файла
Код:
if Test.RA[n] = 1 then
RadioButton1.Checked := true;
Edit6.Text:=IntToStr(Test.Bb);
в едите6 у меня появляется лишь номер записи а не значение
В общем нид хелп!!
P.S. могу выложить исходник если нужно