t_id
1280
t_adddate
2004/04/12
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459443649 | 937501 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3038 } { Submitted by "Marco (Gory Bugs Department)" on 2004-04-03 } { e-mail: } {$mode delphi} type dasso = class procedure bla; virtual; abstract; end; dmyasso = class(dasso) procedure bla; override; end; dnextasso = class(dmyasso) procedure bla; override; end; ClassFamily= class of dasso; procedure dmyasso.bla; begin end; procedure dnextasso.bla; begin end; const cmyclass : array[0..1] of classfamily =(dmyasso,dnextasso); var vmyclass : array[0..1] of classfamily =(dmyasso,dnextasso); begin end.