Шаг в ProgressBar. Правильность формулы. Типы данных

[artemavd]

Составил формулу для вычисления шага, который нужно задавать в Progressbar, чтобы отображать ход загрузки. Смысл формулы: "Берем количество загружаемых файлов, делим на 100 и полученное число переводим в проценты и записываем в свойство StepBy". Например, число загружаемых файлов = 2300. т.е. 2300:100=23. Следовательно 23 - это 1%. Правильно я рассуждаю? Вот, пытался сделать так:

var
 i,f: real;
begin
 i:=100;
 f:=FloatToStr(Form1.ListBox2.Items.Count/100);
 Form1.ProgressBar1.StepBy(f);

[Скандербег]

Рассуждение правильное, реализация не очень.

var
 i, f: Integer;
begin
  Form1.ProgressBar1.Max := 100;
  f := Round(Form1.ListBox2.Items.Count/100);
  for I := 0 to ListBox2.Items.Count-1 do begin
    ... процесс загрузки
    if ((I+1) mod f = 0) or (I = ListBox2.Items.Count-1) then
      Form1.ProgressBar1.StepBy(f);
  end;

Что-то в этом роде.

Добавление: этот алгоритм не будет работать, если количество элементов в листбоксе меньше 100, из-за того что переменная f будет равна нулю.

Второе добавление: было бы неплохо, если бы прогрессбар оперировал не количеством файлов, а их суммарным объемом (в байтах или Кб, зависит что за файлы - большие, небольшие по размеру).

Еще один совет (ИМХО). Свойство прогрессбара Max установить в количество файлов. Тогда не надо вычислять шаг приращения, а прогрессбар будет показывать более точно процесс загрузки:

var
 i: Integer;
begin
  Form1.ProgressBar1.Max := Form1.ListBox2.Items.Count;
  for I := 0 to ListBox2.Items.Count-1 do begin
    ... процесс загрузки
    Form1.ProgressBar1.Position := I;
  end;

К тому же, этому алгоритму все равно сколько будет файлов.

[artemavd]

Добавление: этот алгоритм не будет работать, если количество элементов в листбоксе меньше 100, из-за того что переменная f будет равна нулю.

В этом случае тогда можно добавить какое-нибудь условие типа:

 if Form1.ListBox2.Items.Count < 100 then 
 begin
  //что-то
 end;

пошел пробовать код

[Скандербег]

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

пошел пробовать код

Немного тормознул и более простой алгоритм запоздало добавил в свой пост (см. пост #2).

[ex.cluz]

Добавление: этот алгоритм не будет работать, если количество элементов в листбоксе меньше 100

Почему? Даже при 50 округление будет идти до единицы


Добавлено позже:

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

[Mad_Cat]

Вот более верное решение для счета в %

pb.position :=trunc(колиспф*100/общеекол);

где колиспф- сколько файлов уже просмотрели а общеекол- сколько всего файлов.будет работать с любым количеством элементов кроме 0 конечно

[Скандербег]

Да, здесь вы правы - арифметическое округление, конечно же ноль будет при кол-ве файлов меньше 50.
Но все равно странно будет выглядеть прогрессбар в процессе, если загружаем, допустим, 80 файлов: "движок" заполнит весь прогрессбар одним махом.
Используя второй алгоритм (пост #2) можно будет видеть как "движок" постепенно заполняет прогрессбар. Быстро или медленно - это уже зависит от размеров файлов.

[russian-stalker]

ProgressBar1.Max := количество_файлов;
ProgressBar1.Position := текущий_файл;

А почему не воспользоваться стандартными средствами?

[ex.cluz]

russian-stalker, во #2 посте так и написано.

[russian-stalker]

ex.cluz, ой, извиняюсь. Глянул на первый пример, а второй не заметил.