Советы по Delphi


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


type RecType = integer; {<-- здесь задается тип элементов массива}
const MaxRecItem = 65520 div sizeof(RecType);
type = MyArrayType = array[0..MaxRecItem] of RecType;type = MyArrayTypePtr = ^MyArrayType;
var MyArray : MyArrayTypePtr;beginItemCnt := 10; {количество элементов массива, которые необходимо распределить}GetMem(MyArray,ItemCnt*sizeof(MyArray[1])); {распределение массива}MyArray^[3] := 10; {доступ к массиву}
FreeMem(MyArray,ItemCnt*sizeof(MyArray[1])); {освобождаем массив после работы с ним}end;

- Michael Day [000724]




Начало  Назад  Вперед



Книжный магазин