t_id
370
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022234873 | 1027299 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0144.pp } { problem with 'with object do' OK 0.99.7 (PFV) } program done_bug; type TObject = object Constructor Init; Destructor Done; end; PObject = ^TObject; Constructor TObject.Init; begin end; Destructor TObject.Done; begin end; var P:PObject; begin New(P,Init); with P^ do Done; { Compiler PANIC here ! } Dispose(P); end.