1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| program Type11;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TArrayStatic2D =Array[0..1,0..1] of byte;
TArrayStatic2Dv2 = Array[0..1] of Array[0..1] of Byte;
TArrayDynamique2D = Array of Array of Byte;
TArrayDynamique2Dv2 =Array[,] of byte;
var
T1 : TArrayStatic2D; //System.Byte[,]
T2 : TArrayStatic2Dv2; //System.Byte[][]
T3 : TArrayDynamique2D; //System.Byte[][]
T4 : Array[,] of byte; //System.Byte[,]
T5 : TArrayDynamique2Dv2; //System.Byte[,]
begin
T3:=New(TArrayDynamique2D,2,2);
T4:=New(Array[,] of byte,((1,2),(3,4)));
T5:=New(Array[2,2] of byte);
//T5:=New(TArrayDynamique2Dv2,2,2); E2307
T1[0,0]:=2;
Writeln('T1[0,0] ',T1[0,0]);
Writeln('T1[0][0] ',T1[0][0]);
Writeln;
T3[0,0]:=2;
Writeln('T3[0,0] ',T3[0,0]);
Writeln('T3[0][0] ',T3[0][0]);
Writeln;
{$R-} // Bug with R+
Writeln('T4[0,0] ',T4[0,0]); // With R+ Exception -> System.NullReferenceException
Writeln('T4[0][0] ',T4[0][0]);
Writeln;
T5[0,0]:=2;
Writeln('T5[0,0] ',T5[0,0]);
Writeln('T5[0][0] ',T5[0][0]);
Readln;
end. |
