afterscroll Zeos 7. Медленный запуск приложения

[GROSS777]

Всем привет!
Проект на SQLite. Все хорошо компилируется и работает пока не объявлю событие в датасете afterscroll. После объявления приложение запускается очень долго... Дело в том, что мне надо выводить данные в таблицу detail, связанные с таблицей master. При изменении курсора должны выводиться определенные данные в detail.
Значит дальше включаю отладку. от меня делфи требует файл ZAbstractrodataset.pas Прописываю в опциях пути где лежат всякие разные модули zeos'a. Все, файлы все на месте, отладчик перескакивает на файл ZAbstractrodataset и начинает там делать какие то дикие циклы. Понимаю что тормоза происходят из-за этих циклов. Вопрос: для чего он это делает и как мне быть? Может здесь есть специалисты по зеосу или те, кто сталкивался с этой проблемой.
кол-во записей в таблице мастер около 1600
в детэйл где-то 8000 тыс.

[Аватар]

А что прописано в обработчике события afterscroll? Наверно там собака зарыта. И не забывайте, afterscroll отрабатывает при любом изменении указателя на запись в DataSet. Не важно программно ли вы меняете его или в гриде по записям ходите

[Yurk@]

отключи событие AfterScroll в дизайнере на компоненте, а потом на OnShow формы присвой это событие в коде вручную.
Аватар, AfterScroll отрабатывает не на каждой записи, а с некоторой задержкой. пока курсор изменяется - он не срабатывает, как только курсор остановится на одной записи на определенное время - он сработает. (по крайней мере в FIB+ так, думаю и в других тоже)

[GROSS777]

Аватар, вот что там написано

procedure TfDM.TBaseNameAfterScroll(DataSet: TDataSet);
begin
  with fDM.TBasePriv do
  begin
    SQL.Text := 'Select * From TBasePriv Where Key_fio_foreign='+fDM.TBaseName.FieldByName('Key_fio').AsString;
    Open;
  end;
end;

При открытии проекта курсор встаёт на первую запись в датасете и срабатывает событие афтерскролл, как я понимаю..тормоза происходят только при загрузке, потом этот афтерскролл работает как надо

[Аватар]

Yurk@, проверить просто:

DataSet.First;
while not DataSet.Eof do begin
  DataSet.Next;
end;

И точку останова на первой команде обработчика AfterScroll. Я это прежде всего имел ввиду, а не процесс загруки данных из внешнего источника в DataSet и внутренние перемещения по данным (например Locate в процессе перебора) в обход методов явного управления положением указателя

GROSS777Тормоза там хорошие. Попробуйте то, что Yurk@ предлагает

[GROSS777]

Сообщение от Yurk@

отключи событие AfterScroll в дизайнере на компоненте, а потом на OnShow формы присвой это событие в коде вручную.

Спасибо! Вот это мне помогло