Tlist

[AngryD]

моё задание таково:
Описать тип-объект Spisok (однонаправленный линейный список без головного элемента, элемент содержит поля: ключ, информационное поле 1, информационное поле 2) и его методы: создание пустого списка; создание элемента; добавление элемента в список – в начало и в конец; удаление элемента списка – из начала и из конца; уничтожение списка с освобождением памяти; подсчет количества элементов списка; вывод списка на экран в виде таблицы; сохранение списка в файле; восстановление списка из файла. Описать тип и методы его потомка Spis2 (методы: поменять местами два элемента с заданными ключами; удалить элементы, значение ключа которых больше среднего арифметического всех ключей; исключить i-ый по номеру элемент).

В принципе я понимаю как работают списки, но нигде не могу найти точного кода реализации. Как точно описать список и как вывести его в виде таблицы?
Прошу посильной помощи, спасибо.

[Прик]

...но нигде не могу найти точного кода реализации. Как точно описать список...?

Ответ в заголовке темы.
Можно сделать потомка от TList, чтобы объявить требуемые по заданию поля.
Вся, нужная по заданию, функциональность у TList есть.
Таблица - TStringGrid.

Или сделать как в примере по справке TList в Delphi. Там же показано как выводить содержимое TList в виде упорядоченных данных на канву (TCanvas).

[Stilet]

Для раздумий:

program Project1;

{$APPTYPE CONSOLE}

uses   classes,
  SysUtils;
type
 r=record
  i:integer;
  d:TDateTime;
 end;
var l:TList;ar:^r;i:integer;
begin
// Создаем список
 l:=TList.Create;
  for i:=1 to 10 do begin
// Наполняем его чем-то
    new(ar);l.Add(ar);
    ar^.i:=i;ar^.d:=now;
  end;
  for i:=0 to l.Count-1 do begin
// Выбираем из списка. Начало списка идет с 0
   ar:=l[i];
   writeln(ar^.i,ar^.d);
  end;
 l.Free;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.