Открытые параметры-массивы
Формальный параметр, описанный с помощью синтаксиса:
array of T
является открытым параметром-массивом. T должно быть идентифика- тором типа, а фактический параметр должен быть переменной типа T, или массивом, типом элементов которого является T. В процедуре или функции формальный параметр ведет себя так, как если бы он был описан следующим образом:
arra[0..N - 1] of T
где N - число элементов в фактическом параметре. По существу, диапазон индекса фактического параметра отображается в диапазон целых чисел от 0 до N - 1. Если фактический параметр - это прос- тая переменная типа T, то он интерпретируется как массив с одним элементом типа T.
К открытому формальному параметру-массиву можно обращаться только по элементам. Присваивания всему открытому массиву не до- пускаются, и открытый массив может передаваться другим процедурам или функциям только как открытый параметр-массив или нетипизиро- ванный параметр-переменная.
Открытый параметр-массив может быть параметром-значением, параметром-константой и параметром-переменной и имеет тот же смысл, что и обычные параметры-значения, параметры-константы и параметры-переменные. В частности, присваивания элементам фор- мального открытого массива-константы не допускаются, а присваива- ния элементам формального открытого массива, являющегося парамет- ром-значением, не влияют на фактический параметр.
Для открытых массивов-значений компилятор создает в кадре стека процедуры или функции локальную копию фактического парамет- ра. Таким образом, при передаче в качестве открытых парамет- ров-значений больших массивов следует учитывать возможное пере- полнение стека.
При применении к открытому параметру-массиву стандартная функция Low возвращает 0, стандартная функция High возвращает ин- декс последнего элемента в фактическом параметре-массиве, а функ- ция SizeOf возвращает размер фактического параметра-массива.
Процедура Clear в следующем примере присваивает каждому эле- менту массива вещественных значений ноль, а функция Sum вычисляет сумму всех элементов массива вещественных чисел. Поскольку в обо- их случаях параметр A является открытым параметром-массивом, подпрограммы могут работать с любым массивом элементов типа Real:
procedure Clear(var A: array of Real);
var I: Word; begin for I := 0 to High(A) do A[I] := 0; end;
function Sum(const A: array of Real): Real; var I: Word; S: Real; begin S := 0; for I := 0 to High(A) do S := S + A[I]; Sum := S; end;
Когда типом элементов открытого параметра-массива является Char, фактический параметр может быть строковой константой. Нап- ример, с учетом предыдущего описания:
procedure PringStr(const S: array of Char); var I: Integer; begin for I := 0 to High(S) do if S[I] <> #0 then Write(S[I]) else Break; end;
и допустимы следующие операторы процедур:
PrintStr('Hello word'); PrintStr('A');
При передаче в качестве открытого параметра-массива пустая строка преобразуется в строку с одним элементом, содержащим сим- вол NULL, поэтому оператор PrintStr('') идентичен оператору PrintStr('#0').
