Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=412565&view=findpost&p=3768360 Thu, 03 May 2018 05:33:33 +0000 AV при использовании EhLib https://forum.sources.ru/index.php?showtopic=412565&view=findpost&p=3768360 Добавил AccessData.conMain.Close в FormClose, ошибка исчезла :)]]> Jin X Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=412565&view=findpost&p=3768358 Wed, 02 May 2018 20:51:59 +0000 AV при использовании EhLib https://forum.sources.ru/index.php?showtopic=412565&view=findpost&p=3768358
При выборе в TDBLookupComboboxEh пункта запускается обработчик OnChange, который должен загружать в другой TDBLookupComboboxEh список по SQL-запросу:
    begin
      with AccessData.qrySecond, SQL do
      begin
        Clear;
        dblkcbbehSecond.KeyValue := Null;
        if dblkcbbehFirst.KeyValue <> Null then
        begin
          Text := 'SELECT * FROM Second WHERE First='+IntToStr(dblkcbbFirst.KeyValue);
          Open;
        end;
      end;
    end;
Для обычного TDBLookupCombobox всё работает чётко (только там вместо OnChange используется OnClick). А вот при использовании TDBLookupComboboxEh вылетает AV во время закрытия программы.
В чём может быть косяк?
p.s. Delphi 7 + MS Access

Исключение вылетает только при закрытии. При срабатывании (в т.ч. многократном) OnChange всё работает как надо, список подгружается.

В принципе, можно оставить только with + Text := ... + Open (т.е. убрать Clear, ... := Null и if), всё равно будет ошибка...]]> Jin X Delphi: Базы данных