Еще раз о EAccessViolation.

[Andre1723]

Здравствуйте.
Еще раз о EAccessViolation. Поискал по форуму, подобных тем много, но не нашел ответ на свой вопрос.
В моей программе несколько динамических массивов.
Ошибка выскакивает при закрытии программы. Ошибка возникает только после инициирования любого из массивов, т.е. если открыл и сразу-же закрыл программу, не нажимая другие кнопки - ошибка не появляется.
ОШИБКА:
Project Project.exe raised exeption class EAccessViolation with message 'Access violation at address 00401B43 in module 'Project.exe'. Read of address 00000000.
ПРОЦЕДУРА ЗАКРЫТИЯ:
procedure TfmMain.aExitExecute(Sender: TObject);
begin
Dist:= nil;
ZMatrix:= nil;
Table:= nil;
Klaster:= nil;
fmMAin.Close;
end;
Подскажите, пожалуйста, где искать глюк?

[mihali4]

Ставим брэкпойнт на строку
Dist:= nil;
Дальше идем по шагам (F8) и смотрим, где программа "спотыкается".
"Read of address 00000000" как правило, однозначно указывает на обращение к несуществующему объекту (переменной).
Подозреваю, что вы не все их создаете, зато все "чохом" (т.е. не думая) пытаетесь "занилить"... Либо какая-то из пар связана "родственными" отношениями и, как минимум одна из строк является лишней.

[Andre1723]

Переписал код:

procedure TfmMain.aExitExecute(Sender: TObject);
begin
If Klaster <> nil Then Klaster:= nil;
If Table <> nil Then Table:= nil;
If ZMatrix <> nil Then ZMatrix:= nil;
If Dist <> nil Then Dist:= nil;
fmMAin.Close;
end;

Все равно ошибка.

[VVM]

Andre1723, Было бы неплохо весь код просмотреть. Тогда можно точно сказать в чем проблема.

[Andre1723]

У меня в программе еще пара локальных массивов. Похоже придется их обнулять по мере НЕнадобности.
Процедура "Readsp" в отдельном модуле. В ней просто данные "RECORD" перегоняются в "ARRAY".

[VVM]

Возможно проблема в индексации. В статичсеких массивах вы указываете диапазон, начиная с 1. В динамических индексация начинается с 0.
Например здесь:

For i:=1 To 3 Do
    begin
      For j:=1 To kolpr Do
        begin
          xsr[i]:= xsr[i] + table[j,i];

А массив table, по идее, следует заполнять с [0, 0]. Но это само по себе не страшно. Страшно то, что это смещение вылезет "с другой стоороны", то есть произойдет обращение к несуществующему элементу массива.

[Andre1723]

Я пытался задавать массивы с запасом (+1). Видимо не все проследил.
Просто нумерация с "1" удобна. (запись №1, ит.д.).

Спасибо всем. Буду переделывать с "0" .

[VVM]

Возможно, где-то идет обращение к элементу дин. массива, размерность которого еще не задана.

[Роман Радер]

Или к последнему элементу дин массива по нумерации.
например, ar[length(ar)] вызовет эту ошибку. в любом случае.

[Andre1723]

...или задана в процедуре для локальной переменной-масиву??? А в другой процедуре такая переменная будет доступна?