Распределите память кучи с помощью GetMem. Если вы имеете:
|
|
var
a, b: array [0..30000]: Integer; |
то попробуйте:
|
|
type
TBigArray = array [0..30000] of Integer;
var
a, b: ^TBigArray; |
и во внешнем блоке сделайте:
|
|
GetMem(a, SizeOf(TBigArray));
GetMem(b,
SizeOf(TBigArray)); |
Также необходимо применять указатели на память вместо ссылок, например
взамен:
необходимо использовать
|