Форум: "Начинающим";
Текущий архив: 2011.03.27;
Скачать: [xml.tar.bz2];

Вниз

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

← →
сергей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]

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

---

← →
Anatoly Podgoretsky ©   (2010-12-30 19:49) [4]

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

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

---

← →
Virgo_Style ©   (2010-12-30 20:26) [5]

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


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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2011.03.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c