Динамические массивы в Паскале

Как создать одномерный динамический массив в Паскале?

Динамические массивы в Pascal

Динамические массивы в Паскале не имеют заранее определенного размера.

Размер динамических массивов может изменяться.

Динамические массивы в Паскале пример

Пример создания динамического массива в Паскале:

type TIntMassiv = array of Integer;
var intMassiv: TIntMassiv;

здесь создан новый тип TIntMassiv, это динамический массив, его размер не известен, и переменная данного типа intMassiv.

Размер динамического массива неизвестен, но для работы с таким массивом размер надо установить. Устанавливают размер динамического массива в Паскаль с помощью функции SetLength

SetLength(intMassiv, 2);

здесь установлен размер два для массива intMassiv.

Отсчет индексов динамического массива в Паскале всегда ведут с нуля.

Присвоим значение первому элементу массива intMassiv, а индекс первого элемента динамического массива всегда равен нулю:

intMassiv[0] := 10;

Присвоим значение второму элементу массива intMassiv, а индекс второго элемента динамического массива всегда равен 1:

intMassiv[1] := 12;

Изменим длину динамического массива в сторону увеличения:

SetLength(intMassiv, 3);

здесь мы увеличили размер массива на один элемент, он добавился в конец существующего массива.

Присвоим значение новому третьему элементу массива intMassiv, а индекс третьего элемента динамического массива всегда равен 2:

intMassiv[2] := 14;

Изменим длину динамического массива в сторону уменьшения:

SetLength(intMassiv, 1);

здесь мы уменьшили размер массива на два элемента, при этом последние два элемента существующего массива удалились.

После окончания работы с динамическим массивом освобождаем память, выделенную для него:

intMassiv := nil;

Теперь в нашем массиве нет элементов.

Собираем всё вместе:

{ @author Subbotin B.P. @see http://sbp-program.ru } type TIntMassiv = array of Integer; procedure TMyArray.TestProc; var intMassiv: TIntMassiv; inn: Integer; begin { Установим длину динамического массива } SetLength(intMassiv, 2); { Выводим значение первого элемента массива } intMassiv[0] := 10; { Выводим значение второго элемента массива } intMassiv[1] := 12; { Выводим длину и значения элементов массива intMassiv } Writeln(‘intMassiv length = 2’); for inn := 0 to 1 do begin Writeln(‘intMassiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(intMassiv[inn])); end; { Установим новую длину динамического массива } SetLength(intMassiv, 3); { Выводим значение третьего элемента массива } intMassiv[2] := 14; Writeln(); { Выводим длину и значения элементов массива intMassiv } Writeln(‘intMassiv length = 3’); for inn := 0 to 2 do begin Writeln(‘intMassiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(intMassiv[inn])); end; Writeln(); { Установим новую длину динамического массива } SetLength(intMassiv, 1); { Выводим длину и значения элементов массива intMassiv } Writeln(‘intMassiv length = 1’); for inn := 0 to 0 do begin Writeln(‘intMassiv[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(intMassiv[inn])); end; { Освобождаем память, выделенную массиву } intMassiv := nil; ReadLn(); end;