blob: 9d101c8ef27e8c70da9602632ed23c3c70b93345 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{$mode objfpc}
{$apptype console}
// test enumerating multidimensional arrays with and without conversion
type
TSingleDimArray = array[0..1] of integer;
TMultyDimArray = array[0..1] of TSingleDimArray;
var
MultyDimArray: TMultyDimArray;
a: TSingleDimArray;
i: integer;
begin
MultyDimArray[0,0]:=1;
MultyDimArray[0,1]:=2;
MultyDimArray[1,0]:=3;
MultyDimArray[1,1]:=4;
for a in MultyDimArray do
for i in a do
WriteLn(i);
for i in MultyDimArray do
Writeln(i);
end.
|
