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. |
Partager