mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:28:09 +02:00
22 lines
501 B
ObjectPascal
22 lines
501 B
ObjectPascal
{ 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.
|