t_id
796
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524212405 | 947979 | True | False | Successfully run |
Record count: 1
{ %VERSION=1.1 } {$ifdef fpc}{$mode objfpc}{$endif} type rec = record ch : char; end; TBadObject = class a: array[0..0,0..0] of array[0..0] of rec; public property a0: char read a[0,0][0].ch; end; var BadObject: TBadObject; begin BadObject := TBadObject.Create; BadObject.a[0,0][0].ch := 'a'; if BadObject.a0 = BadObject.a[0,0][0].ch then; BadObject.Free; end.