| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

сергей2010 ©   (2010-12-30 15:45:00) 

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


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


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

---

Virgo_Style   (2010-12-30 20:26:00) [1]

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


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

---

Anatoly Podgoretsky   (2010-12-30 19:49:00) [2]

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

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

---

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

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

---

Jeer   (2010-12-30 15:50:00) [4]

+ *.ProcessMessages

---

turbouser   (2010-12-30 15:48:00) [5]

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

---

Наверх