Файлы и строки.

[lastalert]

Добрый день.

Есть текстовый файл, который содержит множество вопросов и ответов на них. Данные имеют следующий вид:

# номер вопроса
& сам вопрос
$ответ на вопрос
#номер вопроса
&сам вопрос
$ответ на вопрос
_____________________________
номера вопросов начинаются с #
вопросы начинаются с &
ответы начинаются с $
_____________________________
Подскажите, пожалуйста, как можно организовать чтение из этого файла и присвоение этих данных переменным.

Вот моя попытка реализовать эту задачу:

var 
   dataArray : array[1..N, 1..N, 1..N] of string;

{ N получаем прочитав файл и узнав количество вопросов. 

первый столбец матрицы содержит номер вопроса
второй столбец матрицы содержит тело вопроса
третий столбец матрицы содержит ответ}

   fp : textfile;
   st : string;
   i   : integer;
begin
AssignFile(fp, 'datafile.txt');
Reset(fp);
while not eof(fp) do
   begin
      Read(fp, st);
      for i := 1 to N do
         for j := 1 to N do
            for k := 1 to N do 
             begin
                if st[0] = '#'
                   then
                     begin
                        // прочитать все данные после #
                        // dataArray[i, j, k]  := ...
                     end;
                 if st[0] = '&'
                    then
                      begin
                        // прочитать все данные после &
                        // dataArray[i, j, k]  := ...
                      end;
                 if st[0] = '&'
                     then
                       begin
                        // прочитать все данные после $
                        // dataArray[i, j, k] := ...
                       end;
             end;
end;

[Stilet]

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

[lastalert]

Stilet, а как можно сделать с пом. типизированных файлов?
я просто не силен в паскале и не знаю как сделать что-то на подобии ассоциативного массива.

array(
          questionNumber[0] => array (
                                                   1 => Question
                                                   2 => Answer 
                                          ),
          questionNumber[1] => array (
                                                   1 => Question
                                                   2 => Answer 
                                         )
)

и т.д.

[NoSilence]

var
  Questions: integer;
  Question: array of record
    Index: integer;
    Text, Answer: string;
  end;

function LoadQuestionsFile(FileName: string):integer;
var
  i: integer;
begin
Questions:= 0;
SetLength(Question, 0);
with TStringList.Create do
  try
    LoadFromFile(FileName);
    for i:= 0 to Count-1 do begin
      if Strings[i] = '' then continue;
      if Strings[i][1] = '#' then begin
        Inc(Questions);
        SetLength(Question, Questions);
        Question[Questions-1].Index:= StrToInt(Copy(Strings[i], 2, Length(Strings[i])));
      end else if Strings[i][1] = '&' then
        Question[Questions-1].Text:= Copy(Strings[i], 2, Length(Strings[i]))
      else if Strings[i][1] = '$' then
        Question[Questions-1].Answer:= Copy(Strings[i], 2, Length(Strings[i]));
    end;
  finally
    Free;
  end;
result:= Questions;
end;

так я полагаю?