Советы по 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]
