T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-08 #23 type TAA=Array of array of String; procedure PopClick(var Jud_name:TAA); begin ShowMessage(Jud_Name[1,2]); end; procedure TForm1.Button2Click(Sender: TObject); var K:TAA; begin SetLength(K,10,10); K[1,1]:='aaaa'; K[1,2]:='vvvvv'; PopClick(K); end;
type TAA=Array of array of String; procedure PopClick(var Jud_name:TAA); begin ShowMessage(Jud_Name[1,2]); end; procedure TForm1.Button2Click(Sender: TObject); var K:TAA; begin SetLength(K,10,10); K[1,1]:='aaaa'; K[1,2]:='vvvvv'; PopClick(K); end;