Динамические структуры данных, Читаю FAQ и не могу понять... Опции

[Бродяжник]

Бьюсь над созданием списка с возможностью удаления элементов из середины. Вспомнил про FAQ на любимом форуме, полез туда. Читаю:

Предположим, что надо удалить элемент, расположенный после элемента, на который указывает ссылка q.

{удаление элемента из середины списка после q^}
Procedure Del (Var q: point);
Var r: point;
Begin
 r:=q^.Next;
 q^.Next:=q^.Next;
 r^.Next:=nil
End;

Как это работает?! :o

[hiv]

Лучше так сделать:

{удаление элемента из середины списка после q^}
Procedure Del (Var q: point);
Var r: point;
Begin
 r:=q^.Next;
 if r<>nil then 
 begin
   q^.Next:=r^.Next;
   Dispose( r );
 end;
End;

Сообщение отредактировано: hiv - 7.06.2005 8:53