Двунаправленный список

[dip]

подскажите как создать из файла двунаправленный список?чтобы указатель двигался вперёд и назад,но не кольцевой список

[NiCola999]

пишешь структуру списка, основные ф-ии, загружаешь в него файл(по символьно или построчно как угодно) , нэ?

[dip]

type  TInfo    =  integer;
      PNode = ^TNode;
      TNode =  record
         Info: TInfo;
         Next,          // указатель на следующий элемент
         Pred: PNode;   // указатель на предыдущий элемент
       end;


var
  Form1: TForm1;
      L:PNode;
      f1,f2:textfile;

implementation

{$R *.dfm}
//------------------Процедура удаления-------------
Procedure dele(var t:PNode;w:integer);
var
  z:PNode;
begin
  if t<>nil then
    if t^.Info=w then
      begin
        t:=t.Next;
        z:=t.Pred;
        z.Pred.Next:=t;
        t.Pred:=z.Pred;
        Dispose(z);
      end
    else
    dele(t.next,w);
end;

//-----------Вывод-------------
Procedure vihod(t:PNode);
begin
  if t<>nil then
  begin
    write(f2,t.Info:6);
    vihod(t.next);
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  w,i:integer;
  t,r:PNode;
begin
  w:=StrToInt(Edit1.Text);
  assignfile(f1,'file.txt');
  assignfile(f2,'file2.txt');
  reset(f1);
  r:=nil;
  while not EOF(f1) do
  begin
  if r=nil then
  begin
    new(r);
    with r^ do
    begin
      read(f1,r.Info);
      Next:=nil;
      Pred:=nil;
    end;
  end
  else
  begin
    new(t);               // создание нового элемента
  with t^ do begin
    read(f1,t.Info);
    Next:=r^.Next;
    Pred:=r;
  end;
  r^.Next^.Pred:=t;       // меняется значение поля Pred
  r^.Next:=t;

  end;

  end;
  {L.next:=nil;}
  closefile(f1);
  {if proverka(r,w) then}
    dele ( t, w);
  rewrite(f2);
  vihod(t);
  closefile(f2);
  Memo1.Lines.LoadFromFile('file2.txt');
end;
//----------------Открытие файла----------------
procedure TForm1.Open1Click(Sender: TObject);
var
  str:string;
  i:integer;
begin
  if OpenDialog1.Execute then
    AssignFile(f1,'file.txt');
    Reset(f1);
    while not EOF(f1) do
   begin
     Readln(f1,Str);
     Memo1.Lines.Add(Str);
     if Memo1.Lines[i]='' then
     Memo1.Lines.Delete(i);
   end;
end;



end.

[dip]

вот я так строю список..но не получается..у меня задине написать рекурсию на удаление числа...процедура сама вроде правильная,а вот построение самого списка нет