mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 00:49:31 +02:00
16 lines
304 B
ObjectPascal
16 lines
304 B
ObjectPascal
{$mode objfpc}
|
|
program Project1;
|
|
|
|
uses variants;
|
|
|
|
function CreateVarArray( const Bounds: array of SizeInt;
|
|
const VarType: integer ): variant;
|
|
var
|
|
Dim01: array [0..1] of SizeInt absolute Bounds;
|
|
begin
|
|
Result := VarArrayCreate( Dim01, varType );
|
|
end;
|
|
|
|
begin
|
|
end.
|