Версия для печати темы

Автор: влад 21.11.2005 15:52

Помогите!
Как удалить заданный элемент из двусвязного списка?

Автор: volvo 21.11.2005 16:01

procedure tlist.remove_item(p: ptitem);
var r: ptitem;
begin
  r := p^.prev;
  if r <> nil then r^.next := p^.next
  else first := p^.next;

  r := p^.next;
  if r <> nil then r^.prev := p^.prev
  else last := p^.prev;

  dispose(p);
  p := nil
end;

Автор: влад 21.11.2005 23:01

Спасибо