t_id
860
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ %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.