delphi简单问题

Question

procedure shows(lb:lianbiao);
var
  lb_t:lianbiao;begin
  lb_t:=lb;
  while(lb_t.ptr_front.ptr_back<>nil)    do
    begin
    listbox1.Item.add(inttostr(lb_t.ptr.num))  ;
    end;
end;
其中listbox1.Item.add(inttostr(lb_t.ptr.num))  ;系统提示错误：
Undeclared identifier: 'listbox1'
Missing operator or semicolon可是listbox1是我的列表控件的名字。声明部分都有：TForm1 = class(TForm)
    Label1: TLabel;
    zrs: TEdit;
    Label2: TLabel;
    Listbox1: TListBox;  \\？？？？？？？？？？？？？？？？？????????????
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

Answer 1

procedure shows(lb:lianbiao);
这不是类方法,而你的Listbox是定义在TForm1中的.

Answer 2

这样定义：
procedure TForm1.shows(lb:lianbiao);

Answer 3

show过程不再FORM类里，不能调用form类的方法。