удаление элемента из двунаправленного списка

[Unique_Maks]

Здравствуйте!

Подскажите пожалуйста что делаю не так при реализации процедуры удаления элемента из двунаправленного списка

PHP код:

Type
   tp=^el;

   el=record
      value : integer;
      next : tp;
      prev : tp;
   end;

var
   first, last : tp;
   delete_value : integer;

...

procedure tpDelete( start: tp; del_value : integer);
  var element, Right_elem, Left_elem : tp;
begin
  if start = nil then writeln('List not init')
  else
    while (start <> nil) do
    begin
      if(start^.value = del_value) then
      begin
      element := start;
      Right_elem := element^.next;
      Left_elem := element^.prev;
      dispose(element);
      //element := nil;
      start^.next := Right_elem;
      start^.prev := Left_elem;
      end else
      start := start^.next;
    end;
end;
....

//тело программы
begin
...
   WriteLn('--- input delete value ---'); 
   readln(delete_value); // ввод элемента для последующего удаления
   tpDelete(first,delete_value); // передача первого и удаляемого элементов 
....
end. 


с тэгом php более читабельно

[DmitriB]

Вместо строчек

PHP код:

start^.next := Right_elem; 
start^.prev := Left_elem; 


Следует использовать

PHP код:

Right_elem^.prev := Left_elem;
Left_elem^.next := Right_elem; 


Так как вам нужно изменить поля соседних элементов, а вы меняете next и prev в найденном элементе, который, наоборот, надо удалить.
Плюс, надо будет еще добавить проверку, если этот элемент не является первым или последним, в случае чего обработка должна быть чуть по другому, так как нет одного следующего или предыдущего элемента.

[Unique_Maks]

DmitriB, спасибо большое) насчет проверок первого и последнего элемента думал сделать после того как отладится работа основного алгоритма)