var arrDemo: array of array of string; i:integer; begin setLength(arrDemo,5,2); for i:=0 to 4 do begin arrDemo[i,0]:= inttostr(i) + '0'; arrDemo[i,1]:= inttostr(i) + '1'; end;
// 用memo查看数组的值 for i:=0 to 4 do begin Memo1.Lines.Add(arrDemo[i,0] + ' ' + arrDemo[i,1]); end; end;
----------------------------------------------
-