Загрузка данных из текстового файла

[diliana]

приветик всем!

У меня проблема со чтением текстового файла.
В общем, история такая - я реализовала динамические очереди, каждая очередь имеет номер и заполняется элементами, которые содержат разные типы данных ( интегер и стринг).
Эту очередь сначала надо записать в текстовый файл.
Я это сделала и это было несложно

{сохранение в файл}
Procedure Save;
var
  temp: TItem;
  F: text;
begin
  Assign(F, FName);
  reset(F);
  write(F,  nomer ); // записали номер  очереди
  writeln (F); //переход на новую строку
  temp := First;
  while temp <> nil do //проход по очереди
    begin
     write(F, temp.MyString, temp.MyInteg); // записали строку и число
     writeln(F);// переход на новую строку
     temp := temp.next; // проходим до конца
    end;
   Close (F);
    writeln;
end;

В текстовый файл это пишется так

100
number55
number22
number99

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

[Codemaster_N1]

я бы советовал при записи в файл отделить значение переменной типа string от значения переменной типа integer чем нибудь (пробелом, например, но лучше - переводом строки), так будет проще считывать

[diliana]

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

я бы советовал при записи в файл отделить значение переменной типа string от значения переменной типа integer чем нибудь (пробелом, например, но лучше - переводом строки), так будет проще считывать

ну это не проблема, это легко можно сделать.
а дальше, как это считывать?

[Codemaster_N1]

в файл только одна очередь записывается?
ваша процедура Save сохраняет, судя по всему, только одну очередь.
Если вы ее поочередно вызываете для всех очередей и хотите писать в один файл, то нужно вместо Reset(F) писать Append(F). Иначе вы сможете записать в один файл только одну очередь.

[diliana]

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

в файл только одна очередь записывается?
ваша процедура Save сохраняет, судя по всему, только одну очередь.
Если вы ее поочередно вызываете для всех очередей и хотите писать в один файл, то нужно вместо Reset(F) писать Append(F). Иначе вы сможете записать в один файл только одну очередь.

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

[Greblin]

Циклом

while not eof(F) do

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

[Codemaster_N1]

вот аналогично вашей Save, для считывания одной очереди, при этом String от Integer переводом строки отличаются:

procedure _Read_(var Temp: TItem);
var
  F: Text;
  prev, head: TItem;
begin
  Assign(F, 'base.txt');
  Rewrite(F);
  ReadLn(Num);
  New(head);
  Temp := head;
  while not EOF(F) do
  begin
    prev := Temp;
    New(Temp);
    Temp^.next := nil;
    prev^.next := Temp;
    ReadLn(Temp^.MyString);
    ReadLn(Temp^.MyInteger);
  end;
  Temp := head^.next;
  Dispose(head);
end;

P. S. не компилировал =)

[diliana]

Greblin

да я пробовала таким циклом

while not eof(F) do 
 begin 
    while (Not Eoln(F))do
  begin
...

только у меня ничего не получилось (я уж прежде чем написать сюда, сама пытаюсь сначала разобраться!).
Теоретически все это я представляю, но правильно вот сделать не могу

[Codemaster_N1]

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

[diliana]

Codemaster_N1
Какой вы настойчивый
очереди хранятся в списке.
список прохожу циклом и сохраняю очереди.