[poli-smen]

Сообщение от serenberg

Ошибка Range Check Error;
При задании размерности массива выдает Range Check Error.
Пытался сделать через статичный массив, тогда происходило переполнение стека. Подскажите как с этим бороться, уменьшить размерность массива не могу, это географические данные.

Код:

  type
  TAz = record
      count : integer;
      distaln : array [1..2, 0..360000] of double;
  ...
procedure TForm1.Button1Click(Sender: TObject);
  var 
    AzSel : array of TAz;
  begin
   ...
   SetLength(AzSel, 3600);
   ...
   end;

Тип Double занимает в памяти 8 байт. У тебя в типе TAz их 2*360001=720002 штук которые займут 720002*8=5760016 байт плюс 4 байта на count : integer итого 5760020.
Потом ты резервируешь память под 3600 таких элементов которые займут 5760020*3600=20736072000 байт - ~20 гигабайт (!). Даже если у тебя есть столько оперативки в компьютере, то всё равно под Win32 для приложений отводится всего 2 гигабайта оперативки.