Почему замедляется работа процедуры?

← →
MegaBonus (2004-10-24 23:52) [0]

Доброе время суток! У меня такая проблема -
Существует процедура которая ищет в списке какие-то необходимые данные, в это время на панели два лейбла показывают - первый сколько всего в списке строк, а второй сколько уже найдено совпадений. Если не использовать отображение результатов работы процедуры с помощью этих лейблов, то время затрачиваемое процедурой на работу составляет ок. 1 секунды. А если использовать, то оно увеличивается почти до 10 секунд. Как сделать так чтобы и результаты отображались и время работы небыло таким большим?

← →
Palladin © (2004-10-24 23:59) [1]

обновлять лейблы пореже

← →
4e6ypaTop _@(o,o)@_ © (2004-10-25 00:15) [2]

Попробуй использовать не label.caption а например Form.caption

← →
TUser © (2004-10-25 10:57) [3]

Прорисовка - это дело медленное. Рисуй не всегда, а иногда только, примерно так
for i:=0 to ... do
begin

if i mod 100 = 0 then // На каждой сотой итерации
begin
label1.caption:="...";
application.processmessages;
end;
end;

ИМХО - при таком раскладе, если все за секунду делается - отображать прогресс совершенно лишнее.

← →
MegaBonus (2004-10-25 12:29) [4]

Я в такой ситуации сравнивал GetTickCount текущее значение со значением предыдущей прорисовки и рисовал когда разница больше 200.

Почему замедляется работа процедуры? Найти похожие ветки