Описание
Функция блокирует массив значений типа Variant и возвращает указатель на начало массива. Блокировка состоит в том, что после вызова данной функции размеры массива изменить будет нельзя, и все вызовы процедуры VarArrayRedim не будут приводить к успеху. Разблокировать массив можно с помощью процедуры VarArrayUnlock. Если параметр А не является Variant-массивом, то возникает исключение EVariantError.
Пример type
PMas = ^TMas;
TMas = array[0..100] of Integer; var
V: Variant;
I, K: Integer;
P: PMas; begin
V:= VarArrayCreate([0, 100], varInteger);
P:= VarArrayLock(V); for I:= 0 to 100 do P^[I]:= I*I;
VarArrayUnlock(V);
K:= V[20]; // K := 400 end;
