Тест на Delphi. Работа с файлами

[fen1ksss]

Задача: разработать тестирование с возможностью добавления вопросов, все мои вопросы с вариантами ответов должны содержаться в файле

Такой вопрос, если я буду использовать типизированный тип файлов, можно ли как то в одном файле создать несколько записей (или что вроде того) и по очереди к ним обращаться, чтобы брать вопросы?

спасибо

[R_G]

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

[W.i.d.g.e.t.1]

Текстовый файл на пк, на форму мемо кидаешь и радиокнопки. И условия ставишь на событие клацания баттона.

[Sibedir]

2 fen1ksss
Можно и через типизированный файл, но есть одно НО. Вопросы и ответы имеют разную длинну, да и кол-во предлагаемых ответов может быдть разным. А при чтении из типизированного фыйла считываются куски одинаковой длины.

Я бы порекомендовал ini-файлы. С ними очень просто работать.

[fen1ksss]

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

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

ну допустим можно записывать в таком виде
(1)
кто был... ?
а) А
б) Б
в) В

и просто через TStringlist обращаться по очереди к этим строчкам

Тогда какой процедурой осуществлять поиск по файлу, чтобы найти строку (1) ?

[Sibedir]

Тогда какой процедурой осуществлять поиск по файлу, чтобы найти строку (1) ?

Вот вот. А в ini-файлах это все уже готово.

Добавил ------------------------------------------
http://www.programmersforum.ru/showthread.php?t=99811

[fen1ksss]

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

Вот вот. А в ini-файлах это все уже готово.

Добавил ------------------------------------------
http://www.programmersforum.ru/showthread.php?t=99811

спасибо
а вывод из ini файла

IniF:=TIniFile.Create('\123.INI');
Edit1.Text:=IniF.ReadString('Vopros1','Vopros', V.Vopros);

выдает такую ошибку
First chance exception at $7C812AEB. Exception class EAccessViolation with message 'Access violation at address 7C832BDD in module 'kernel32.dll'. Read of address 5B5EC68B'. Process Project1.exe (224)

в таком виде? в чем ошибка?

и как осуществлять поиск нужного мне вопроса?

[fen1ksss]

Во всем разобрался, всем спасибо

[Sibedir]

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

вот смотри, твоя программка

допустим я ввел вопрос и ответы, нажал добавить, потом еще раз. теперь в Listbox у меня 2 строки, как сделать так, чтобы при выборе одной из них варианты ответов,относящиеся к этой строке загружались обратно в мемо? мне это нужно, чтобы вопросы загружать из файла, редактировать, а потом обратно сохранять.

вот что написал

var
   s1, s2: String;
begin
  if OpenDialog1.Execute then begin
    IniF := TIniFile.Create (OpenDialog1.FileName);
    V := TVopros.Create;
    Edit3.Text:=IntToStr(IniF.ReadInteger ('Задать столько вопросов', 'Количество', 0));
    for i := 1 to IniF.ReadInteger ('Всего вопросов', 'Количество', 0) do begin
      s1 := 'Вопрос №' + IntToStr(i);
      V.Vopros:=IniF.ReadString (s1, 'Вопрос', '');
      ListBox1.Items.AddObject (V.Vopros, V);
    end;
      if ListBox1.Selected[1]=true then i:=ListBox1.ItemIndex ;  ?????
      s1 := 'Вопрос №' + IntToStr(i);
      for j := 1 to IniF.ReadInteger (s1, 'Количество ответов', 0) do begin
        s2 := 'Ответ №' + IntToStr(j);
        Memo1.Lines[j-1]:=IniF.ReadString (s1, s2, '');
      end;
    Edit2.Text:=IntToStr(Inif.ReadInteger (s1, 'true', 0));
    IniF.Free;
  end;
end;

как вот это действие правильно выполнить
if ListBox1.Selected[1]=true then i:=ListBox1.ItemIndex ; ?

или я не по тому пути пошел?
спасибо

Отвечаю тут
Доработал программку. Теперь она и сохраняет и загружает и редактирует.
INI-файлы.zip

P.S.: fen1ksss, это не тот вопрос ради которого стоит писать в личку. Форум носит просветительских характер, так сказать, для всех. Пусть другие тоже смотрят. Может кому еще пригодится.

[fen1ksss]

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

Отвечаю тут
Доработал программку. Теперь она и сохраняет и загружает и редактирует.
Вложение 32478

P.S.: fen1ksss, это не тот вопрос ради которого стоит писать в личку. Форум носит просветительских характер, так сказать, для всех. Пусть другие тоже смотрят. Может кому еще пригодится.

без проблем. спасибо