一个巨菜的问题～！～！～！～！～！

Question

不会吧！把它放在
type
  TForm1 = class(TForm)
前面
然后Tform1 Public属性：加上  myAr:Array of ar 注意不要加 var

Answer 1

我回去试试，等着加分吧，谢谢了～～～～如果不行怎么办呢？
是否为：
type AR=record
    ID:integer;
    Caption:String;
end;
    TForm1 = class(TForm)
      .........public
   myAr:Array of ar;啊？

Answer 2

 呵呵，省不省掉都无所谓，问题可能不在此。顺便问一下，你的错误信息是什么？
 看看你的代码是不是如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type ar=Record
    ID:integer;
    Caption:String;
end;type  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
   myAr:Array of ar;
  end;var
  Form1: TForm1;implementation{$R *.DFM}end.

Answer 3

我的加在这儿type
  database=record
    mc:string;
    bz:string;
  end;
  TF_tj_bbdz_1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure checkspeedbutton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;