Как добавить новую запись в динамический список? Опции

[alex457]

Существует односвязный линейный список. Информация читается из файла в список. Вопрос состоит в том, как добавить новый элемент в уже существующий список? Заранее, очень благодарен.

Создание списка:

Assign(Data,Path);
     Reset(Data);
     l:=nil;
     i:=0;
     while not eof(Data) do
         begin
            inc(i);
            Seek(Data,i);
            Read(Data, Symbol);
            new(t);
            t^.key := i;
            t^.row := Symbol;
            t^.next := l;
            l:=t;
         end;
     CountRecords := i;
     Close(Data);

Вывод всех записей:

while ( t <> nil) do
           begin
    
              write(t^.row.SurName);
              write(t^.row.Name);
              write(t^.row.FullName);
              write(t^.row.BhirtDay);
              writeln(t^.row.Identity);
              t:=t^.Next;
           end;
     end;

[P@sh@]

1. благодаря Seek файл будет загружаться со 2-го элемента, а не с начала... и в некоторых случаях может быть ошибка чтения
2. в загрузке поле next указывает на предыдущий элемент, а не на следующий, поэтому при работе второго блока все выведется задом наперед, с конца
3. после вывода переменная t будет nil, поэтому начало списка надо хранить где-то... чтоб потом корректно удалить хотя бы

а по вопросу:
сначала надо найти нужный элемент (пройтись по ссылкам с начала списка) - допустим в переменную t1
потом вставить (это если порядок будет прямой, а не обратный, как сейчас):
new(t);
t.data:=....;
t.next:=t1.next;
t1.next:=t;

Сообщение отредактировано: P@sh@ - 20.04.2012 15:12