var
  Form1: TForm1;
  type
       bancai=^bc;   //板材的数据结构
         bc=record
         long:real;
         width:real;
         x1:real;
         y:real;
         page:integer;
         next:bancai;
     end
  p,q,:bancai;
implementation

{$R *.dfm}

type语句应提前，不要放在var声明中，应在
type
  Tform1 = class(Tform)
之前

收到的鲜花

• 书桌台灯 于 2013-05-17 21:20 送鲜花  3朵   附言：我很赞同 我还想问你一个问题运行时出现这 ...

再次请教  我运行时有个这个错误 您给看看是什么错误     list index out of bounds(-1) delphi  这是什么错误 新手求大侠帮助

下标超出范围。