Процедура удаления в двунаправленном списке

[mishammm]

Здраствуйте, помогите дописать плиз 1 процедурку к программе. Нужно в двунаправленном списке сделать удаление по фамилии: вот мой код:

uses
  crt;
type
  prizv=string[30];
  nomer=longint;
  
 
  List=^TList;
  TList=record
    prizvv:prizv;
    nomerr:nomer;
    next,prev:List;
  end;
  
  var
  SpisNach,SpisEnd,tmp,tmpl,addtmp,atmpN,atmpP:List;
  BList:List;
  
  F:string;
  Z:longint;
  ch:char;
  count:real;
  
  
  procedure AddElem(var nach,ends:List;F:prizv;Z:nomer);
begin
  if nach=nil then
    begin
    Getmem(nach,SizeOf(TList));
    nach^.next:=nil;
    nach^.prev:=nil;
    ends:=nach;
  end
  else
  begin
    GetMem(ends^.next,SizeOf(Tlist));
    ends^.next^.prev:=ends;
    ends:=ends^.next;
    ends^.next:=nil;
  end;
  ends^.prizvv:=F;
  ends^.nomerr:=Z;
end;

procedure PrintV(spis1:List);
begin
  if spis1=nil then
  begin
    writeln('Spisok pust.');
    exit;
  end;
  while spis1<>nil do
  begin
  
  write('-------------------------------------------------------------------------');
  writeln('|Prizvishe | Nomer |');
  
  write('-------------------------------------------------------------------------');
  
  
    Write(spis1^.prizvv:15,'|' , spis1^.nomerr:15, '|');
    
    spis1:=spis1^.next;
    writeln;
  end;
end;

begin
  SpisNach:=nil;
  SpisEnd:=nil;
  count:=0;
  repeat
    clrscr;
    TextColor(4);
    Write('Programma ');
    writeln;
    TextColor(7);
    TextColor(3);
    Writeln('Viberite deistvie:');
    TextColor(7);
    Writeln('1) Dobavka dannix.');
    Writeln('2) Vuvid dannix --->.');
    writeln;
    ch:=readkey;
    case ch of
      '1':begin
            writeln('Vvedite danni telef knigi');
            writeln('Prizv');
            readln(F);
            Writeln('nomer telefony');
            readln(Z);
            AddElem(SpisNach,SpisEnd,F,Z);
            count:=count+1;
          end;
          
          
          '2':begin
            clrscr;
            writeln('Vivod spiska');
            PrintV(SpisNach);
            readkey;
            end;
            end;

until ch='3';
end.

ввод, вывод обеспечены, только не шарю с процедурой удаления. спасибо!

[Serge_Bliznykov]

про удаление в двухсвязном списке можно почитать:


Реализация односвязного и двусвязного списков

Двусвязный список.


Модули для работы с динамическими списками (c) kommunist

Разработайте класс, реализующий линейный двусвязный список (пост #11)


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