Delphi кольцевой список

[KingOfNothing]

Мне нужно сделать кольцевой список, я написал процедуры добавления в начало списка и удаление элемента по ключу. Но, блин, где-то ошибка - не могу найти. Помогите пожалуйста!!

Странно, что когда в дебагере смотрю функцию Add, то при выходе из нее список вроде бы правильный, а после выхода нарушается связность. В функции ремов может быть нету бага, просто из-за нарушения в Add, она тоже неправильно работает.

Сам список:

unit list;

interface

uses dysc;

type


  TListNode = class
      public
        constructor Create(e:disc);
        function Add(e:disc):TListNode;
        function Remove(e:disc):TListNode;
        function getElement: disc;
        function getNext: TListNode;
        function getPrev: TListNode;
      private
          next:TListNode;
          prev:TListNode;
          element:disc;
  end;



implementation

constructor TListNode.Create(e:disc);
begin
  element:= e;
  next:=self;
  prev:= self;
end;

function TListNode.getElement: disc;
begin
  getElement := element;
end;

function TListNode.getNext: TListNode;
begin
  getNExt := next;
end;

function TListNode.getPrev: TListNode;
begin
  getPRev := prev;
end;

function TListNode.Add(e:disc):TListNode;
var temp:TListNode;
begin
  temp:=TListNode.Create(e);
  temp.next := self;
  temp.prev := self.prev;
  self.prev := temp;
  if (self.next = self) then
      self.next := temp;
  Add:=temp;
end;

function TListNode.Remove(e:disc):TListNode;
var
  l:TListNode;
begin
  l := self;
  Remove := self;
  repeat
    if (l.element.KodDysc = e.KodDysc) then
        begin
          if (l = self) then
            Remove := l.next;
          l.prev.next := l.next;
          l.next.prev := l.prev;
          l.Free;
          break;
        end;
    l := l.next;
  until l=self;
end;


end.

Вызовы:

disc = record
    KodDysc: string[5];
    NazvDysc: string[80];
    KodCycl: integer;
    ObsDysCred: real;
    LabRob: boolean;
  end;

function View(l:TListNode):string;
var
  temp:TListNode;
  s:string;
begin
  temp := l;
  repeat
    s:= s + temp.getElement.KodDysc + #10#13;
    temp := temp.getNext;
  until temp<>l;
  View := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:tListNode;
  e:disc;
begin
e.KodDysc:='1';
s:=TListNode.Create(e);
e.KodDysc:='2';
s:= s.Add(e);
e.KodDysc:='3';
s:= s.Add(e);
e.KodDysc:='1';
s:= s.Remove(e);
Memo1.Text := View(s);
end;

[alexBlack]

Остальное не проверял, но как минимум нет

self.prev.next := temp

не забудьте проверить ссылку как Вы это сделали с self.next

[KingOfNothing]

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

Остальное не проверял, но как минимум нет

self.prev.next := temp

не забудьте проверить ссылку как Вы это сделали с self.next

self.prev.next := temp ? это в Add? кажется, self.prev.next == temp.next, если поставить его вот так:

function TListNode.Add(e:disc):TListNode;
var temp:TListNode;
begin
  temp:=TListNode.Create(e);
  temp.next := self;
  temp.prev := self.prev;
  self.prev := temp;
  if (self.next = self) then
      self.next := temp;
  self.prev.next := temp 
  Add:=temp;
end;

Не вижу в этом смысла, если я правильно вас понял

[alexBlack]

  temp:=TListNode.Create(e);
  temp.next := self;                     // вставили перед текущим
  temp.prev := self.prev;              // указатель на предыдущий
  temp.prev.next := temp;            // предыдущий теперь указывает на нас
//или, что тоже самое
//  self.prev.next = temp, т.к. self.prev мы еще не меняли
  self.prev = temp;                      // мы являемся предыдущим для self

Нарисуйте карандашом на бумаге стрелки, стирайте их по мере выполнения фрагмента и ставьте новые.

Это без проверки начального варианта, когда первый элемент ссылается сам на себя.