Например, если вам необходимо сохранить "GIZMOS" в вашем массиве, сделайте
следующее:
|
|
CONST
MaxGIZMOS = $FFFF Div
(SizeOf(GIZMOS)) { или что-то другое, смотря какой
максимальный размер GIZMOS вы планируете...} TYPE
pGIZMOArray = ^GIZMOArray;
GIZMOArray = Array[1..MaxGIZMOS]
of GIZMOS; VAR
TheGIZMOS: pGIZMOArray;
GIZMOcount: integer; BEGIN
GetMem(TheGIZMOS,(GIZMOcount+1)*SizeOf(GIZMO)); {Нужна дополнительная
единица, поскольку массив GetMem ведет отсчет с нуля...}
TheGIZMOS^[index] := Whatever; ну и так
далее... |
TList - такой динамический массив. Для получения дополнительной информации
обратитесь к электронной справке. Если вы хотите это делать сами, то вам
необходимо использовать GetMem для получения указателя на распределенную
динамическую память, и затем FreeMem для освобождения памяти, занятой
динамическим массивом. Tlist сделает это за вас самым надежным образом. |