本人在某个函数中使用了控件数组，在其他函数中不能用，救命！

Question

各位老大：
    本人在某个函数中使用了控件数组，在其他函数中不能用，救命！
unit USaveTime;interfaceuses
  ...type
    ...
  private
    ...
  public
       { Public declarations }
  end;var
  edtCase:array of array of TEdit; //在此声明数组
implementation
procedure p1();
begin
  setlength(edtCase,5,4);
  edtCase[1,1]=TEdit.Creat(nil);
  edtCase[1,1].Text="tttt";
...
end;procedure p2();
begin
  ShowMessage(edtCase[1,1].Text); //报错，不能用end;

Answer 1

setlength(edtCase,5,4);
edtCase[1,1]:=TEdit.Create(nil);
edtCase[1,1].Text:='tttt';
...

Answer 2

1、有没有地方调用过p1；
2、应该改成这样
  SetLength(edtCase, 5);
  for i := 0 to 4 do
  begin
    SetLength(edtCase[i], 4);
  end;

Answer 3

var
  Form1: TForm1;
  edtCase: array of array of TEdit; //在此声明数组implementation{$R *.DFM}procedure p1;
begin
  SetLength(edtCase,5,4);
  edtCase[1,1] := TEdit.Create(nil);
  edtCase[1,1].Text := 'tttt';
end;procedure p2;
begin
  p1;
  ShowMessage(edtCase[1,1].Text);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  p2;
end;