Подскажите...

← →
сергей2010 (2010-12-30 15:45) [0]

Доброе время суток. Возник такой вопрос... В цикле прогоняю большое количество элементов, но пользователю надо показывать что процесс работает, для этого вывожу в кэпшен панельки надпись типа :

i: integer; .. while not Eof(F) do begin Readln(F,Item); i := i+1; Panel1.caption := "Прочитано : "+ inttostr( i ) +"строк"; ..

Как сделать так, чтобы счетчик отображающий количество прочитанных строк срабатывал например каждую тысячу строк, а не каждую строку? Никак не могу допереть как это сделать :(

← →
turbouser © (2010-12-30 15:48) [1]

while not Eof(F) do
begin
Readln(F,Item);
Inc(i);
if (i mod 1000) =0 then
Panel1.caption := Format("Прочитано : %d строк",[i]);

← →
Jeer © (2010-12-30 15:50) [2]

+ *.ProcessMessages

← →
сергей2010 (2010-12-30 15:53) [3]

спасибо большое!! ))))

> сергей2010 (30.12.2010 15:45:00) [0]

Так это IF нужен однако.

> Так это IF нужен однако.

или программист?

Подскажите... Найти похожие ветки