t_id
860
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950863583 | 1015809 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc} {$mode objfpc} {$endif} type TFlowItem = class text: string; //replace with "shortstring" and the crash goes away end; TFlow = array of TFlowItem; TFlow2 = array of array of TFlowItem; var flow: tflow; flow2 : TFLow2; begin setlength(flow, 10); setlength(flow, 1); flow[1]:=TFlowItem.Create; { release } setlength(flow, 0); setlength(flow2, 10, 20); setlength(flow2, 0); writeln('no crash'); end.