delphi двунаправленный циклический список (доработать)

[maksimum]

Здравствуйте, уважаемые форумчане! Нужна помощь в доработке моей первой программы на Delphi.
Есть задача на работу с двунаправленным циклическим списком без головного элемента:
Описать класс Spisok, в который входят следующие методы:
Создание пустого списка.
Подсчет количества элементов списка.
Вывод на экран содержимого списка в виде таблицы.
Вставка элемента в начало или в конец списка (оба варианта).
Исключение элемента из начала или конца списка (оба варианта).
Сохранение списка в файле.
Восстановление списка из файла.
Уничтожение списка с освобождением памяти.
Описать класс Spis2 , потомок класса Spisok, в который добавить методы:
Включить новый элемент вместо i-го по номеру элемента;
Исключить элемент с соответствующим ключом;
Поменять местами элемент с максимальным нечетным значением ключа и первый элемент списка.
Есть код однонаправленного списка с нужными процедурами.

Помогите разобраться и переделать этот код для двунаправленного списка. Вот попытка переделать процедуру добавления элемента в конец. Ошибок никаких не выдало, но и пр нажатии на кнопку ничего не происходит

type
  link = ^element;
  element  = record
       key : integer;
       info : variant;
       prev,next : link
end;
------------------
procedure TfrmMain.InsertElementInEnd(var el : link;var first : link);


begin
  if first = nil then
  begin
    first := el;
    el^.next := el;
    el^.prev := el;
  end
    else
  begin
    el^.next := first;
    el^.prev := first^.prev;
    first^.prev^.next := el;
    first^.prev := el;
  end;
end;

[netpolice]

А где извиняюсь форма uMain.pas

begin
  if first = nil then
  begin
    first := el;
    el^.next := el;
    el^.prev := el;
  end
    else
  begin
    el^.next := first;
    el^.prev := first^.prev;
    first^.prev^.next := el;
    first^.prev := el;
  end;
end;

Обычно на крайних элементах, ссылки на следующие/предыдущие элементы приравнивают nil, т.е.

begin
  if first = nil then
  begin
    first := el;
    el^.next := nil;
    el^.prev := nil;
  end
    else
  begin
    el^.next := nil;
    el^.prev := first^.prev;
    first^.prev^.next := el;
    first^.prev := el;
  end;
end;

Млин а дальше я уже запутался в ваших ссылках, перессылках... Для себя попробуйте нарисуйте данный массив на бумажке для себя, и проанализируйте поведение указателя/бегунка при разных действиях..

И потом что именно вы передаете в переменной first - указатель на начало списка?

[maksimum]

спасибо за поправку, сейчас попробую разобраться. архив перезалил

[netpolice]

У Вас в rar-е все практически готово нужно, только добавить одну строчку el^.prev:=temp; Сами догадаетесь куда? Про хвостовые нилы не забывайте.


Да и еще: в двунаправленных списках, помимо начала обычно известно и конец списка. Если у вас так то задача проще решается...


А я знаете че заметил: Список то циклический, тогда Вы правы, что при нулевом списке, первый элемент добавляется со ссылками на себя, но в таком случае у нас нет ни начала ни конца списка. И как мы добавим в конец элемент?

[maksimum]

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

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

я вот тоже на этом моменте запутался, уже перечитал много литературы, но ещё больше не понял. может код для добавление в конец и в начало списка один и тот же?
На другом форуме видел такой пример
ссылка
вроде там используется двунаправленный циклический список, но сделав так на своей программе вообще не работает.

[evg_m]

любой список предполагает добавление до/после определенного элемента.

Добавление в конец = найти последний + добавить после.
У нас нет понятия последний. => нельзя добавить в конец.
Но мы всегда можем вставить до(или после) некоторого.
Если мы знаем (можем узнать) после которого вставлять то вставляем именно туда.
Если мы не может сказать после которого (или до которого) вставлять, значим нам БЕЗРАЗЛИЧНО это самое место вставки. Значит можно вставлять в любое удобное место.

[netpolice]

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

любой список предполагает добавление до/после определенного элемента.

Добавление в конец = найти последний + добавить после.
У нас нет понятия последний. => нельзя добавить в конец.
Но мы всегда можем вставить до(или после) некоторого.
Если мы знаем (можем узнать) после которого вставлять то вставляем именно туда.
Если мы не может сказать после которого (или до которого) вставлять, значим нам БЕЗРАЗЛИЧНО это самое место вставки. Значит можно вставлять в любое удобное место.

Вот об этом я и говорю... Но если мы что то вставим в любое удобное место, то как мы потом это искать будем? Единственный выход я вижу, что у нас будет начало и конец в одном месте. Ну как у окружности есть 0 градусов и 360 в одном месте

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

Видимо да

[evg_m]

Но если мы что то вставим в любое удобное место, то как мы потом это искать будем?

как обычно простым перебором всех (от точки входа до точки выхода =точке входа).

Единственный выход я вижу, что у нас будет начало и конец в одном месте.

Начало и конец для поиска (но не для вставки).
Хотя для вставки оно тоже годится.
Если мы можем искать не перебором, а каким-то другим способом основанном на УПОРЯДОЧЕННОСТИ списка, то тем самым мы всегда можем сказать в какое именно место (до/после вполне определенного) мы должны вставлять. Место определяется из требования сохранить упорядоченность.
Если упорядоченности нет, то место вставки абсолютно безразлично и выбирается она обычно наиболее простым способом (берется первый попавшийся элемент который является точкой входа и вставка идет до/после оного).

[maksimum]

Ребята, легче не стало! Уже устал пробовать. Может кто подскажет пример кода или возьмётся доделать работу за вознаграждение, работу нужно сдать к концу следующей недели.