Странное поведение массива

[Tip.the.besT]

SetLength(Treaty.Members,3);
  Treaty.Members[0].FIO:='0';
  Treaty.Members[1].FIO:='1';
  Treaty.Members[2].FIO:='2';
  SetLength(Treaty.Members,1);
  sb.Panels[0].Text:='Length = ' + inttostr(Length(Treaty.Members)) + ' | High = '+ inttostr(high(Treaty.Members))+' > '+ Treaty.Members[2].FIO;

При выполнение получаем Length = 1 | High = 0 > .

Не смущает, что я обрезал массив. Ошибка вываливается только при закрытии приложения. Как так?

  SetLength(arr,1);
  arr[0]:='0';
  arr[1]:='1';
  arr[2]:='2';
  sb.Panels[0].Text:='Length = ' + inttostr(Length(arr)) + ' | High = '+ inttostr(high(arr))+' > '+ arr[2];

Ради теста делаем так, и получаем - Length = 1 | High = 0 > 2.

Вовсе записали не выделив память. Что за фигня?

Заметил, когда смещал элементы массива после удаления. Там вовсе не понятно как работает, левое выгружает, и плевать, что ты режешь массив после сдвига.

[BDA]

Range checking по умолчанию выключен, поэтому ошибка сразу вылезет только в том случае, если обратиться к невыделенной памяти, иначе будет неопределенное поведение.

[Tip.the.besT]

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

Range checking по умолчанию выключен, поэтому ошибка сразу вылезет только в том случае, если обратиться к невыделенной памяти, иначе будет неопределенное поведение.

Директива {$R+} кто искать будет. Спасибо!

[northener]

Сообщение от Tip.the.besT

Директива {$R+} кто искать будет.

Настоятельно рекомендуется включать эту директиву только на этапе отладки. В релизе её лучше отключить. И код уменьшится и скорость выполнения увеличится.

Сообщение от Tip.the.besT

Вовсе записали не выделив память. Что за фигня?

Читайте Access Violation в деталях до полного просветления.