Тест в Делфи

[Гурам]

Здравствуйте. У меня тест сделан на 4 формах первая для ввода данных о пользователе. вторая для первого тапа вопросо (Ответ вводится в Edit), третья для второго типа вопросов (c RadioButton) и четвернтая для третего типа (с CheckBox). Для каждой из трех форм своя БД (в .txt) расчитанная на 200 вопросов. Как сделать так чтоб спомощью Random из каждой базы для своей формы вытягивалось 10 вопросов (т. е. тест состоит из 30) и по прохождению этих 10 вопросов открывался следущая форма для другова типа вопросов?

[vitaliy1911]

БД реализована просто через текстовый файл или через типизированный файл?

если через текстовый файл то единственное что приходит в голову - создать три массива по 10 чисел integer, которые будут генерироваться через random(200). а потом через цикл последовательно сравнивать номер вопроса с числом из массива, и те, что совпадают выводить на форму.

а если типизированный файл то все гораздо прооще - создаешь цикл в 10 шагов и пишешь в нем
seek(имя_файловой_переменной,random (200));

[Гурам]

Хорошо а как создать типизированый фаил?

[vitaliy1911]

типизированный файл - это файл где информация идет не в текстовом виде а в виде записей. например

type
    myquest=record //объявляем тип записи
    quest:string[100]; //текст вопроса
    v1:string[10]; //вариант ответа 1
    v2:string[10]; //... 2
    v3:string[10]; //... 3
    v4:string[10]; //... 4
    otv:0..3; // правильный ответ
    end;


  myfile=file of myquest;

var
    f:myfile; //файловая переменная
    s:myquest; //переменная записей

тело самой проги покажу на примере вывода на поля edit:

procedure какая-то процедура;

begin
  assignfile(f,<имя файла, например 1.txt>); //связываем файл с файловой переменной
  reset(f); //открываем файл для чтения (и записи)
  read(f,s); //читаем из файла первую запись в переменную записей s
  edit1.text:=s.quest;
  edit2.text:=s.v1;
  edit2.text:=s.v2;
  edit2.text:=s.v3;
  edit2.text:=s.v4;
end;

а если тебе надо считать случайный вопрос из файла то

procedure какая-то процедура;

begin
  assignfile(f,<имя файла, например 1.txt>);
  reset(f);
  seek(f,random(<количество записей в файле, например 200>)); //переходим к случайной записи в файле
  read(f,s);
  edit1.text:=s.quest;
  edit2.text:=s.v1;
  edit2.text:=s.v2;
  edit2.text:=s.v3;
  edit2.text:=s.v4;
end;

в конце обязательно closefile(f);

[Гурам]

В основном все понял, кроме одного: это получается я создаю обычный .txt документ, а в самой программе его уже делаю типизированным?

[vitaliy1911]

нет, самому тебе его создать не получится. точне создать ты его содашь конечно, но заполнить сам в блокноте не сможешь. придется либо создать отдельную форму для заполнения пустого файла вручную, либо (что в твоем случае думаю будет разумнее) написать программку перегона вопросов из текстового файла в типизированный. тупо открывать текстовый файл и через цикл присваивать значения из текстового файла значениям записи типизированного. кстати говоря типизированный файл не обязательно должен быть *.txt , можно любое расширение задать

[Гурам]

Мда, я эти вопросы заморюсь перегонять все в типизированый фаил и к томуже я представления не имею как эту программу зделать.

[Sibedir]

Гурам, на счет файла, может тебе INI-файлы попробывать. С ними работать очень просто. Все в одном файле хранить можно, для работы с файлом уже есть готовый класс, и вообще все просто для понимания.

Как сделать так чтоб спомощью Random из каждой базы для своей формы вытягивалось 10 вопросов

Если устроит, вот топорный способ:
1. Считай все варианты ответов из файла в массив;
2. Перемешай массив способом все из той же темы (тест в делфи);
3. Возми первые 10;

по прохождению этих 10 вопросов открывался следущая форма для другова типа вопросов

Ну тут уж ты братиц совсем ленишся

for i := 0 to 9 do begin
  {показываем форму типа 1}
end;
for i := 0 to 9 do begin
  {показываем форму типа 2}
end;
for i := 0 to 9 do begin
  {показываем форму типа 3}
end;

[Гурам]

Спс всем буду разбираться.

[vitaliy1911]

я сам с ini не работал но многие говорят что удобно, так что смотри сам