Удаление элемента в двусвязном списке (Delphi).

[tgig]

Добрый день! Найдите плиз ошибку((. С помощью процедуры нужно удалить элемент из начала двунаправленного списка.

unit Unit3;

interface

uses Spisok;
procedure delet(var spis1:dynspisok);forward;

implementation

procedure delet;
var
cur,spisR,spisL:dynspisok;
begin
    
    if spis1 = nil then exit;
        if spis1^.prev<>nil then spis1:=spis1^.prev;
        while (spis1 <> nil) do
        begin
        cur := spis1;
        spisR := cur^.next;
        spisL := nil;
        dispose(cur);
        spisR^.prev := spisL;
        spis1 := spis1^.next;
      end;
   end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

добрый день.

во-первых, где сам модуль spisok.pas ?!

во-вторых, а почему Вы не описываете процедуру удаления прямо в том модуле, где описан сам тип dynspisok и заданы процедуры/функции по его обработке?

в-третьих, Вы уверены, что в вашем коде ошибка? И в чём она выражается?

[tgig]

Все в разных модулях, так как таково задание.
Ниже модули описания класса, и основной программы.
При нажатии кнопки2 после вывода списка выдает ошибку и выделяет строчку помеченную

if spis1^.prev<>nil then spis1:=spis1^.prev;

в Unit3.

unit Spisok;

interface
type
dynspisok = ^spis;
spis = record
index:integer;
data:String[15];
prev,next:dynspisok;
end;

implementation

end.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, dynspiod,output,Spisok, Unit2,Unit3;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  spisok:dynspisok;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
  spisok:=sps;
  {outthat(form1.StringGrid1,spisok);}
     
end;



procedure TForm1.Button4Click(Sender: TObject);
begin
  outthat(form1.StringGrid1,spisok);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  delet(spisok);
end;

end.

[Serge_Bliznykov]

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

Все в разных модулях, так как таково задание.

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, dynspiod,output,Spisok, Unit2,Unit3;

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
  spisok:=sps;
  {outthat(form1.StringGrid1,spisok);}
     
end;



procedure TForm1.Button4Click(Sender: TObject);
begin
  outthat(form1.StringGrid1,spisok);
end;

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

При нажатии кнопки2 после вывода списка выдает ошибку

Какую ошибку выдаёт, известно?

[evg_m]

С помощью процедуры нужно удалить элемент из начала двунаправленного списка

подробнее сформулируйте задачу.

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

2 какой элемент будем удалять
-- именно тот который указали (зачем цикл!)
-- все предшествующие указанному (но!

        spisL := nil;
        dispose(cur);
        spisR^.prev := spisL; 

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