blob: 80e77f60953da293ce171ecdb2c9d86c323523b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{$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.
|
