blob: 3b2b7caee65164c777a134cc412142d50ef65df8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ 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.
|
