VarArrayRedim, процедура

Синтаксис


procedure VarArrayRedim(var V: Variant; HighBound: Integer);

Описание

Процедура VarArrayRedim выполняет изменение размера самого правого измерения массива Variant V. Верхняя граница старшего измерения меняется на HighBound.
VarArrayRedim не является настоящей процедурой.

Ошибки

Советы и приемы

  • Нельзя изменить размер массива Variant, пока массив заблокирован.
  • Изменение размера массива сохраняет максимально возможное число его элементов. Если массив увеличивается, новые элементы инициализируются нулями, если тип элементов массива числовой, Unassigned -для массива varVariant и пустыми строками для массива со строковыми элементами.
  • Невозможно изменить размер массива по его ссылке (т. е. по результату вызова VarArrayRef). В процедуру VarArrayRedin должен быть передан фактический массив.

Пример


// Читает числа, введенные пользователем, в самооасширяющийся
// массив. Эта функция - неэффективная, но ясная
// демонстрация функции VarArrayRedim.
function GetArray: Variant;
var
  Number: Integer;
begin
  Result := VarArrayCreate([1, 0], varInteger);
  while not Eof do
  begin
    ReadLn(Number);
    VarArrayRedim(Result, VarArrayHighBound(Result, 1) + 1);
    Result[VarArrayHighBound(Result, 1)]:= Number;
  end;
end;

Смотрите также

Функции VarArrayCreate, VarArrayDimCount, VarArrayHighBound, VarArrayLock, VarArrayLowBound, VarArrayOf, VarArrayRef, VarArrayUnlock, VarIsArray, VarType.
    Учебник по языку Pascal          Лабораторные работы по программированию          Справочник



Нет комментариев.


Оставить комментарий:
Ваше Имя:
Email:
Антибот: *  
Ваш комментарий: