Вывод дунаправленого динамического списка с последнего элемента, немного неправильная реализация... нужна помощь с доведением до ума Опции

[krox]

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

procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
new(p2);
 p:=head;
 While P <> Nil Do
 Begin
   p^.pred:=p;
  if p^.sled=nil then
  last:=p;
  p:=p^.sled;

 End;


 Label9.Caption:='';   Label10.Caption:='';
 Label11.Caption:='';   Label12.Caption:=''; Label14.Caption:='';
 i:=1; p:=last;
 While P <> Nil Do
 Begin
  Label9.Caption:=Label9.Caption+chr(13)+P^.shifr;
  Label10.Caption:=Label10.Caption+chr(13)+P^.naim;
  Label11.Caption:=Label11.Caption+chr(13)+P^.cena;
  Label12.Caption:=Label12.Caption+chr(13)+P^.ves;
  Label14.Caption:=Label14.Caption+chr(13)+IntToStr(i);
  p:=head^.pred; inc(i);
 End;
end;

но оно зацикливается на последнем элементе....

в архиве весь проект...
нид хелп... в понедельник сдавать, а без этого препод не принимает(((

Сообщение отредактировано: krox - 13.12.2008 21:38

[krox]

ещё одна проблемка возникла... удаление по номеру у меня однонаправленое... после него просмотр с конца не работает....
нид хелп

Добавлено через 6 мин.
думаю это будет примерно так

procedure TForm1.Button2Click(Sender: TObject);
var d:Boolean;  i:integer;
begin
d:=false;
i:=0;   //счётчик
 P:=Head;
 Last:=nil;
 While (not d) and (P<>Nil) Do
 Begin
 If StrToInt(Edit5.Text)-1=i Then
  Begin
        p^.pred^.sled:=p^.sled;
       p^.sled^.pred:=p^.pred;
  d:=True;
  Dispose(p);
  end
  else begin

   head^.pred:=p; //этот участок не правильный, не зннаю что написать
   p:=p^.sled;
    end;
  inc(i);
 End; //закрытие цикла
end;