скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Автор: 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook