0

есть код

procedure FindBestSubtree(DerevoIdx: Integer);
var
*объявление локальных переменных, среди них*
CurrentHashs: THashItem; // мой класс
begin
if Assigned(CurrentHashs) then // тут уже срабатывает
        writelog('Abnormal CurrentHashs', wlCritical);
end;

Показывает, что объект уже создан (и в отладчике даже какие-то данные видны)! Программа многопоточная. Раньше было нормально, начиная с какого-то момента (после форматирования кода?) внезапно стала появляться ошибка (на данный момент только при первом заходе в процедуру). Проблема появилась на совсем ровном месте. Грешу на SSD Samsung 860 QVO диск (явных ошибок нет, но несколько раз были замечены странности в виде временной замены "," на "." в большом csv файле).настройки сборки проекта

Delphi XE6, win 8.1. При сборке под win32 проблема пропадает (почти всегда). Не понимаю куда смотреть.

Добавка: Судя по всему локальные переменные процедур не инициализируются автоматически никогда и никакие (кроме может строк?). Иногда при компиляции может совпасть так, что в переменных может быть 0, но это не гарантирирует, что при следующей компиляции и запуске в не инициализированной переменной тоже будет 0.

1
  • 1
    Кода очень мало, не видно ни как создается объект, ни как используется. Могу посоветовать после begin добавить CurrentHashs:=nil. А освобождать обект через FreeAndNil(CurrentHashs). И "почти всегда" это не показатель, все равно не работает.
    – Alex R.
    9 мая 2020 в 12:41

1 ответ 1

3

Локальные переменные надо инициализировать перед использованием. Иначе в них будет мусор, с чем вы и столкнулись.

В вашем примере вы объявили CurrentHashs и не проинициализировав его пытаетесь использовать. Функция Assigned просто сравнивает аргумент с nil, но раз мусор это не nil, вот и получается "Abnormal CurrentHashs".

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.