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 := 0to High(MyArr) do
begin
for I2 := 0to High(MyArr[I1]) do
begin
Writeln(MyArr[I1][I2]);
end;
end;
Readln;
delphi append.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。