Копирование массивов в Паскале

Как копировать массивы в Паскале?

Копирование массивов в Pascal

Пусть имеется задача скопировать один массив в другой.

Такие массивы должны иметь один тип.

В примере мы сначала создаём новый тип, далее переменные этого типа, после чего уже можно выполнять копирование массивов:

{ @author Subbotin B.P. @see http://sbp-program.ru } type TIntMassiv = array[1..5] of Integer; procedure TMyArray.TestProc; var inn: Integer; intMassiv1, intMassiv2: TIntMassiv; begin { Заполняем массив intMassiv1 числами } for inn := 1 to 5 do begin intMassiv1[inn] := inn; end; { Копируем массив intMassiv1 в массив intMassiv2 } intMassiv2 := intMassiv1; { Выводим значения элементов массива intMassiv2 } for inn := 1 to 5 do begin Writeln(‘intMassiv2[‘ + IntToStr(inn) + ‘] = ‘ + IntToStr(intMassiv2[inn])); end; ReadLn(); end;

Получаем:

Копирование массивов в Паскале.