VariantArrays (C++)

Description

This example demonstrates the use of variant arrays. In this example, a variant array is created, modified, populated, and then freed.

Code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Variant array;
	int bounds[2] = {0, 9};

	/*
	Create a variant array of 10 elements, starting at 0
	and ending at 9. The array contains elements of type integer.
	*/
	array = VarArrayCreate(bounds, 1, varInteger);

	// Increase the length of the variant array.
	VarArrayRedim(array, 49);

	MessageDlg(String("Variant array has ") + IntToStr(VarArrayDimCount(array)) +
		" dimensions", mtInformation, TMsgDlgButtons() << mbOK, 0);

	// Traverse the array from lower to higher bounds.
	for (int i = VarArrayLowBound(array, 1); i <= VarArrayHighBound(array, 1); i++)
	{
		// Put the element I at index I.
		VarArrayPut(array, i, &i, 0);
	}

	// Now read the elements of the array.
	for (int i = VarArrayLowBound(array, 1); i <= VarArrayHighBound(array, 1); i++)
	{
		// Put the element I at index I.
		if (VarArrayGet(array, &i, 0) != i)
			MessageDlg("Error! Invalid element found at current position!",
				mtError, TMsgDlgButtons() << mbOK, 0);
	}

	// Clear the variant array.
	VarClear(array);
}

Uses

• System.Variants.VarArrayCreate ( fr | de | ja )
• System.Variants.VarArrayDimCount ( fr | de | ja )
• System.Variants.VarArrayLowBound ( fr | de | ja )
• System.Variants.VarArrayHighBound ( fr | de | ja )
• System.Variants.VarArrayPut ( fr | de | ja )
• System.Variants.VarArrayGet ( fr | de | ja )
• System.VarArrayRedim ( fr | de | ja )