Цитата:
|
Сообщение от AlexA
Да делфи Embarcadero® Delphi® XE2 Version 16.0.4504.48759
|
У меня то как раз XE2 и не стоит.
Ну вроде кое как переделал на Delphi 7, но теперь при нажатии на кнопку "Анализ" выдаёт ошибку, а всё потому, что метод Svazat вызывается с большим параметром B. А этот параметр указывает номер элемента в массиве.
Поставь точку останова на начало метода Svazat и когда программа остановится в этом месте посмотри чему равны значения параметров A и B. У меня A=2, B=1454024:
Код:
procedure TF1.Svazat(A: Integer; B: Integer);
var
ACp, BCp: CP; //Структуры цепочек А и Б
APr, BPr: PR_;//Структуры родителей А и Б
selIf, RDN_A, RDN_B, RDK_A: Integer;
begin
ACp := G1.Tcp[A];
BCp := G1.Tcp[b]; // Вот здесь у меня вылетает ошибка так как размер массива Length(G1.Tcp)=481, а переменная B=1454024