Использование многомерного массива

Delphi , Синтаксис , Массивы

Автор: Michael Day

type
  RecType = integer; {<-- здесь задается тип элементов массива}

const
  MaxRecItem = 65520 div sizeof(RecType);

type
  = MyArrayType = array[0..MaxRecItem] of RecType;
type
  = MyArrayTypePtr = ^MyArrayType;

var
  MyArray: MyArrayTypePtr;
begin
  ItemCnt := 10; {количество элементов массива, которые необходимо распределить}
  GetMem(MyArray, ItemCnt * sizeof(MyArray[1])); {распределение массива}
  MyArray^[3] := 10; {доступ к массиву}

  FreeMem(MyArray, ItemCnt * sizeof(MyArray[1]));
    {освобождаем массив после работы с ним}
end;

Программный пример на языке Delphi, демонстрирующий использование многомерного массива в Pascal. Код определяет два типа: RecType (тип записи) и MyArrayType (тип массива). Тип RecType установлен в целое число, что означает, что элементы массива будут целыми числами.

Константа MaxRecItem рассчитывается как 65520 разделенное на размер одиночной единицы в массиве. Это определяет максимальное количество элементов, которое может быть хранено в массиве.

Код затем определяет два указателя: MyArrayTypePtr, который является указателем на массив типа MyArrayType, и MyArray, которая является переменной типа MyArrayTypePtr.

В коде ItemCnt установлен в 10, что означает, что массив будет инициализирован 10 элементами. Функция GetMem используется для выделения памяти для массива. Затем функция FreeMem используется для освобождения выделенной памяти.

Код также доступится к элементу массива с помощью синтаксиса MyArray^[3] := 10, который устанавливает четвертый элемент (поскольку индексация начинается с 0) массива в значение 10.

Расшифровка кода:

type
  RecType  = integer;  { Определяет тип записи с одним полем, целым числом }

Эта строка определяет новый тип RecType, эквивалентный целому числу. Это означает, что каждый элемент в массиве будет целым числом.

const
  MaxRecItem  = 65520 div sizeof(RecType);

Эта строка рассчитывает максимальное количество элементов, которое может быть хранено в памяти на основе размера одиночной единицы. В этом случае, поскольку RecType эквивалентен целому числу, расчет будет равен 65520 / 4, потому что размер целого числа обычно составляет 4 байта.

type
  MyArrayType  = array[0..MaxRecItem] of RecType;
  MyArrayTypePtr  = ^MyArrayType;

Код определяет новый тип MyArrayType, который является массивом элементов типа RecType, с индексами от 0 до MaxRecItem. Он также определяет указательный тип MyArrayTypePtr, эквивалентный указателю на элемент типа MyArrayType.

var
  MyArray: MyArrayTypePtr;

Эта строка объявляет новую переменную MyArray типа MyArrayTypePtr. Это означает, что она является указателем на массив элементов типа RecType, с индексами от 0 до MaxRecItem.

begin
  ItemCnt  := 10;  { Устанавливает количество элементов в массиве }
  GetMem(MyArray, ItemCnt * sizeof(MyArray[1]));  { Выделяет память для массива }

Эти строки устанавливают количество элементов в массиве в 10 и затем выделяют память для него с помощью GetMem. Часть sizeof(MyArray[1]) рассчитывает размер одиночной единицы в массиве.

  MyArray^[3]  := 10;  { Устанавливает четвертый элемент массива }

Эта строка доступится к элементу массива и устанавливает его значение в 10. Поскольку индексация начинается с 0, MyArray^[3] ссылается на четвертый элемент (не третий).

  FreeMem(MyArray, ItemCnt * sizeof(MyArray[1]));
      { Освобождает выделенную память }

Эта строка освобождает выделенную память для массива с помощью FreeMem. Это важно, потому что оно предотвращает утечки памяти.

Код хорошо структурирован и легко понятен. Однако он мог быть улучшен добавлением более комментариев, чтобы объяснить, что каждый раздел кода делает. Кроме того, могла быть добавлена проверка ошибок, чтобы убедиться в том, что выделение памяти было успешно, перед использованием массива.

В статье описано использование многомерного массива в Pascal, где создается тип элементов RecType, задается количество элементов MaxRecItem и создается указатель на массив MyArrayTypePtr.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::