t_id
1552
t_adddate
2005/04/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022504382 | 1027343 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3681 } { Submitted by "Marco" on 2005-02-22 } { e-mail: } {$Mode Delphi} Uses Variants; var cvariant : variant; begin try cvariant := VarArrayCreate( [0, 5], varVariant ); cvariant[ 0 ] := 'TEST1'; cvariant[ 1 ] := 'TEST2'; cvariant[ 2 ] := 'TEST3'; cvariant[ 3 ] := 'TEST4'; cvariant[ 4 ] := 'TEST5'; finally VarArrayRedim( cvariant, 0 ); if (not varIsEmpty( cvariant )) then VarClear( cvariant ); end; end.