Массивы и строки открытого типа

В версии 7.0 можно в качестве параметров-переменных использовать массивы и строки открытого типа, у которых не задаются размеры. В качестве фактического параметра в этом случае можно использовать массив или строку любого размера, однако массив должен состоять из тех же компонент, что и компоненты открытого массива. Такие параметры введены для того, чтобы подпрограмма могла обрабатывать массив или строку любого размера. Фактический размер массива в этом случае может быть определен с помощью функции High. Открытый массив задается как и обычный массив, но только без указания типа индекса. Следует иметь в виду, что индексация элементов открытого массива всегда начинается с нуля, а максимальный индекс элемента равен значению функции High.

Пример. Функция вычисления максимального элемента в массиве.

Рассмотрим вариант подпрограммы, используя в качестве передаваемого параметра массив открытого типа:

function Max (var Mas: array of Integer): Integer;

var Ma: Integer;

i: Byte;

begin

Ma:= Mas[0];

for i:= 1 to High(Mas) do {цикл до наибольшего индекса}

if Ma < Mast i] then Ma:= Mas[i];

Max:= Ma

end;

В этом примере в подпрограмму передается только один параметр и она может работать с любым одномерным массивом целых чисел. Однако следует иметь в виду, что при работе подпрограммы для открытого массива в стеке опять-таки создается его копия, что может его переполнить.

Разновидность открытого массива –открытая строка, которая может задаваться либо с помощью стандартного типа OpenString, либо с помощью типа string и использования ключа компилятора {$Р+}, например заголовок процедуры, заполняющей каким-либо символом строку, может иметь вид:

procedure FillChar (var Str: OpenString; Ch: Char); или

{$P+}

procedure FillChar (var Str: string; Ch: Char);