各位大哥一个想不通的一维数组的问题？

Question

private
    { Private declarations }
    ww1:array[1..n] of string ;  //一维数组
     ww2:array[1..n] of string ;  //一维数组
   procedure Show1(Sender: TObject);
   procedure Show2(Sender: TObject);  public
    { Public declarations }
  end;
上面我在 私有域里定义了一维数组但是 我想定义一维数组的下标怎么定义常量n呢我定义的老是不对 不知该怎么定义 ？？
                                          哪位老兄知道的说一下 
                                          小弟这里谢谢了！！！

Answer 1

你是想定义动态数组吧?var ww1: array of String; 
begin
  SetLength(ww1, 30); //定义一维数组的下标
  {...}
end;

Answer 2

var ww1: array of String; 
begin
  SetLength(ww1, 30); //定义一维数组的下标
  {...}
end;

Answer 3

楼上的各位意见不错,也可以这样:const n =30 ;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }    ww1:array[1..n] of string ;  //一维数组
    ww2:array[1..n] of string ;  //一维数组
  public
    { Public declarations }
  end;var
  Form1: TForm1;

Answer 4

如果一个button要调用另一个button的动态数组怎么做呢