Вывод записей из динамического списка Опции

[alex457]

Здраствуйте, такой вопрос, как вывести из списка одну запись например 3 из 100.
Создание списка происходит так:

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;

А вот как обратиться к определенной записи непонимаю.

Сообщение отредактировано: alex457 - 12.04.2012 9:40

[IUnknown]

Это не "продвинутое программирование". Не должна программа обращаться к элементам списка по порядковому номеру.

t := head; // Указатель - на НАЧАЛО списка (которое ты, кстати, не запоминаешь)
index := 3; // Порядковый номер нужного элемента
while (t <> nil) and (index > 1) do
begin
   dec(index);
   t := t^.next;
end;

if t = nil then writeln('Нет столько элементов в списке')
else
   // Выводишь содержимое элемента, на который указывает t

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