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

[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 13:40

[IUnknown]

Ну, нужно - так делай. Как найти элемент с номером X, ты знаешь, запоминай, с какого элемента списка начинается "текущая страница" на экране, при следующем обновлении страницы отсчитывай от начала X - 20, и выводи 20 записей.

Гемор конечно, но нужно..

А потом они еще удивляются