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

[Codemaster_N1]

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

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

да я понял, что очередь у вас в списке
Вы писали что у вас не одна очередь. Если есть N очередей, то нужно N списков, и мой вопрос заключался в том, как вы храните эти N списков.

Для одной очереди я вам пример написал (см. выше), он еще должен работать наверное (не проверял)

[diliana]

Вы писали что у вас не одна очередь. Если есть N очередей, то нужно N списков, и мой вопрос заключался в том, как вы храните эти N списков.

а вот и нет! список один, а очередей много!
это структура называется список динам. очередей.

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

[Codemaster_N1]

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

а вот и нет! список один, а очередей много!
это структура называется список динам. очередей.

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

а вот и нифига. По вашей процедуре Save, видно, что Nomer - то есть номер очереди - это отдельная переменная, к списку ни коим образом не привязанная, поэтому каким образом вы в вашем списке отличаете где какая очередь - непонятно...
к тому же у вас там написано: Temp = first, и цикл идет до конца списка, то есть весь список у вас одна очередь с номером Nomer.

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

а вот и нет! список один, а очередей много!
это структура называется список динам. очередей.

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

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

[Greblin]

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

Greblin

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

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

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

Напишите, что получилось, разберёмся, подправим

[Stilet]

каждая очередь имеет номер и заполняется элементами, которые содержат разные типы данных ( интегер и стринг).

diliana,
Ну прям работа для ИНИ файлов.
Каждая очередь - это секция, а ее содержимое ключ=значение в этой секции. Если ты пишешь на Делфи, то рекомендую к каждому классу очереди прикрутить процедуру записи\чтения ее содержимого.

1) при записи - проход по всей очереди и запись ее в определенную секцию (допустим очереди у тя имеют имена или идентификаторы, кои подойдут для именования секций

2) Чтение - опустошаешь очередь, считывая из ИНИ из нужной секции, наполняешь очередь заново, добавляя в нее считанные элементы.

Делов то... Я уже давно на ИНИ файлы перешел при таких задачах.
Можно конечно и БД прикрутить, но ИНИ файлы дешевле обойдутся.