Salut,
qui peut vérifier ce code sous D2005 ou D8 en .NET et confirmer le problème lorsqu'on bascule la directive $R- en $R+ ?
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.