2013年12月1日
Delphi定义多维数组和读取多维数组
摘要： program Project1;{$APPTYPE CONSOLE}uses SysUtils;var MyArr: array[0..3,0..1] of Integer = ((1,2),(4,3),(22,31),(56,10)); I1,I2: Integer;begin for I1 := 0 to High(MyArr) do begin for I2 := 0 to High(MyArr[I1]) do begin Writeln(MyArr[I1][I2]); end; end; Readln;end. 阅读全文
posted @ 2013-12-01 19:06 GOD攀 阅读(1493) 评论(0) 推荐(0) 编辑