Тормоза при отработке графического интерфейса

[sergey113]

Работаю с базой по технологии ADO.
Перебираю в цикле записи таблицы и удаляю их.
Хочу чтобы отображалось в реальном времени количество строк в базе.
Делаю это вставив в цикл такую строчку:

taticText3.Caption := 'Количество записей = ' +   IntToStr(ADOTable1.RecordCount);

Но графический интерфейс не успевает видимо отрисовываться. Цифра меняется лишь в конце когда все закончилось

[ByAlex]

Сообщение от sergey113

Работаю с базой по технологии ADO.
Перебираю в цикле записи таблицы и удаляю их.
Хочу чтобы отображалось в реальном времени количество строк в базе.
Делаю это вставив в цикл такую строчку:

taticText3.Caption := 'Количество записей = ' +   IntToStr(ADOTable1.RecordCount);

Но графический интерфейс не успевает видимо отрисовываться. Цифра меняется лишь в конце когда все закончилось

То есть при добавлении записи или удалении программа не правильно отображает кол-во записей, так? Если так, то вот это попробуй -
if TableMain.Modified then TableMain.Post;
TableMain.Refresh;

[sergey113]

нет.. не то... просто при выполнении цикла процессор подгружается и не успевает отрисовать интерфейс программы. Мне по крайней мере так кажется. Думаю может есть какие-то методы этого избежать. Ну например пузу воткнуть после

taticText3.Caption := 'Количество записей = ' +   IntToStr(ADOTable1.RecordCount);

[ByAlex]

Сообщение от sergey113

нет.. не то... просто при выполнении цикла процессор подгружается и не успевает отрисовать интерфейс программы. Мне по крайней мере так кажется. Думаю может есть какие-то методы этого избежать. Ну например пузу воткнуть после

taticText3.Caption := 'Количество записей = ' +   IntToStr(ADOTable1.RecordCount);

Что то я не понял, объясни ка подробнее!

[ex.cluz]

пузу воткнуть

Ничего это вам не даст...кроме удивления, а почему оно не работает? ))
Application.ProcessMessages используйте.
На крайний случай работайте с таймером (хотя этот метод ущербный).

[sergey113]

Сообщение от ByAlex

Что то я не понял, объясни ка подробнее!

у меня не успевает отрисоваться цифра на элементе caption
Цикл быстро шустрит и команда о смене текста caption не успевает выполнится. Аж до самого конца выполнения процедуры обработчика нажатия кнопки

[sergey113]

вроде Application.ProcessMessages это то, что мне надо...завтра попробую

[ByAlex]

Сообщение от sergey113

вроде Application.ProcessMessages это то, что мне надо...завтра попробую

Все, въехал, такие же проблемы раньше были! Решил использованием нитей и вот этой Application.processMessages(она на время останавливает работу проги и передает управление другим). Вот это точно поможет!

[ex.cluz]

Ну или с приоритетами потоков похимичить, ежели их несколько.

она на время останавливает работу проги и передает управление другим

Не совсем так, скорее проверяет, есть ли что-нибудь в очереди задач и если да, то выделяет процессорное время на их выполнение. Хотя по сути сказал то же самое ))

[sergey113]

Вчера попробовал(у меня периодически форум в отвале почему-то), устраивает... Немного тормоза присутствуют, но они не мешают моей сырой прожке для личного пользования. Спасибо всем помогавшим.