я написал следующее
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 -