PostHeaderIconDelphi. Процедура VarArrayRedim( var A: Variant; HighBound: Integer );

Процедура VarArrayRedim( var A: Variant; HighBound: Integer );

Модуль: System

Описание
Процедура изменяет верхнюю границу младшей размерности Variant-массива. Новая граница определяется параметром HighBound. Параметр A должен иметь тип Variant или OleVariant. Все элементы массива сохраняют свои значения, а новые элементы устанавливаются в ноль или пустые значения. Если параметр A не является Variant-массивом или недостаточно памяти для увеличения размеров массива, то возникает исключение EVariantError.

Пример
var
   V: Variant;
begin

   V:= VarArrayCreate( [0, 3], varVariant);
   V[0]:= VarArrayHighBound(V, 1);
   V[1]:= 'Один';
   V[2]:= 'Два';
   V[3]:= 'Три';
   If V[0]<4 then VarArrayRedim(V, 4);
   V[4]:= 'Четыре';
end;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.