Увеличение счетчика при сохранении файлов

[artemavd]

Добрый вечер! Решил сделать отображение количества сохраненных файлов. Завел переменную counter и разместил ее после строчки сохранения файла. Задача: увеличивать на 1 значение counter и отображать после каждого сохраненного файла обновленное значение в Label25. Вот код:

procedure TMainForm.N8Click(Sender: TObject);
var
 x,y,i,counter:integer;
 b:TBitmap;
 sr:TSearchRec;
 s:string;
 jpg: TJpegImage;
begin
 b:=TBitmap.Create;
 jpg:=TJpegImage.Create;
 FindFirst(MainForm.RzStatusPane10.Caption +'*.bmp',faAnyFile,sr);
 with RzStringGrid2 do
  for i:=0 to RowCount-1 do
  begin
   counter:=1;
   b.LoadFromFile(MainForm.RzStatusPane10.Caption + sr.Name);
   jpg.Assign(b);
   jpg.CompressionQuality:=5;
   jpg.Compress;
   jpg.SaveToFile(MainForm.RzStatusPane12.Caption + MainForm.RzStringGrid2.Cells[0,i] + '.jpeg');
   Inc(counter);
   Label25.Caption:=IntToStr(counter);
   if FindNext(sr)<>0 then break;
  end;
   b.Free;
   jpg.Free;
   FindClose(sr);
   ShowMessage('                  Âûïîëíåíî!                  ');
end;

но, счетчик не увеличивается. Когда начинается процедура сохранения, то значение в Label25 никак не отображается, а когда закончится и появится сообщение, то в Label25 показывается число 2. Откуда оно - я не знаю че-т. Подскажите как правильно надо? И еще вопрос: нужно ли в данном коде помещать строчку Application.ProcessMessages? Чтобы программа не подвисала. Если да, то где ее разместить?

[MaxNik2009]

counter:=1;  
for i:=0 to RowCount-1 do
  begin
  
   b.LoadFromFile(MainForm.RzStatusPane10.Caption + sr.Name);
   jpg.Assign(b);
   jpg.CompressionQuality:=5;
   jpg.Compress;
   jpg.SaveToFile(MainForm.RzStatusPane12.Caption + MainForm.RzStringGrid2.Cells[0,i] + '.jpeg');
   Inc(counter);
   Label25.Caption:=IntToStr(counter);
Application.ProcessMessages;
   if FindNext(sr)<>0 then break;
  end;

[artemavd]

Ок, хорошо. Это сделано. Но вот как и исходя из чего расчитать правильно шаг для Progressbar-a? Что передавать ему в качестве StepBy? Если я пишу так:

procedure TMainForm.N8Click(Sender: TObject);
var
 x,y,i,counter:integer;
 b:TBitmap;
 sr:TSearchRec;
 s:string;
 jpg: TJpegImage;
begin
 b:=TBitmap.Create;
 jpg:=TJpegImage.Create;
 FindFirst(MainForm.RzStatusPane10.Caption +'*.bmp',faAnyFile,sr);
 counter:=0;
 with RzStringGrid2 do
  for i:=0 to RowCount-1 do
  begin
   b.LoadFromFile(MainForm.RzStatusPane10.Caption + sr.Name);
   jpg.Assign(b);
   jpg.CompressionQuality:=5;
   jpg.Compress;
   jpg.SaveToFile(MainForm.RzStatusPane12.Caption + MainForm.RzStringGrid2.Cells[0,i] + '.jpeg');
   Inc(counter);
   MainForm.ProgressBar1.StepBy(counter);
   Label25.Caption:=IntToStr(counter);
   Application.ProcessMessages;
   if FindNext(sr)<>0 then break;
  end;
   b.Free;
   jpg.Free;
   FindClose(sr);
   ShowMessage('                  Âûïîëíåíî!                  ');
end;

то ясное дело, что индикатор "отстает" и не доходит до конца. Как правильно ему записать, чтобы инликатор правильно доходил до ста, независимо от того, какое число передается через counter?

[maxionans]

Замени MainForm.ProgressBar1.StepBy(counte r); на MainForm.ProgressBar.Position := I * MainForm.ProgressBar1.Max div RowCount;

[artemavd]

Все равно индикатор "не успевает"...)

[maxionans]

как сильно не успевает? добавь туда ещё "+ 1"

[mihali4]

Можно работать с ProgressBar процентами.
Тогда он всегда будет иметь МАКС=100.
Просто counter сделать Float. Но их должно быть два - один старый, другой новый.
Новый - это текущий, а старый для сравнения.
И проверять старое и новое значение на разницу, превысившую 1%...
Превысили - записываем в старый значение нового и продвигаем индикатор.

[maxionans]

ну вот если условиться, что ProgressBar1.Max всегда равно 100 и поправить моё выражение I * MainForm.ProgressBar1.Max div RowCount на I * 100 div RowCount, то это и получится вычисление процентов.

[artemavd]

Что-то я ужо не соображаю. Потому что опять 2 часа ночи. Прикрутили уже сюда какие-то проценты вы тут . Попробую завтра на свежую голову вникнуть)

[xrob]

for i:=0 to RowCount-1 do
  begin
   counter:=1;
   ....
   jpg.SaveToFile(MainForm.RzStatusPane12.Caption + MainForm.RzStringGrid2.Cells[0,i] + '.jpeg');
   Inc(counter);
   ....
  end;

перевожу на русский:
от 0 до RowCount-1 делаем такую процедру:
счетчик:=1
сохраняем файл
увеличиваем счетчик

надеюсь вы поняли свою ошибку =)
поставьте counter:=1; перед for

кстати, чтобы label1 сразу отображала изменения нужно после
label1.caption:='превед медвед';
написать
label1.refresh; // виноват, был не прав, не заметил, теперь исправил.

ну вот если условиться, что ProgressBar1.Max всегда равно 100 и поправить моё выражение I * MainForm.ProgressBar1.Max div RowCount на I * 100 div RowCount, то это и получится вычисление процентов.

вы уж меня извините, но зачем городить такую ерунду?
у progressBar есть свойство Max.
в вашем случае: progressBar1.Max:=RowCount;
далее в цикле for:
либо progressBar1.position:=i;
либо progressBar1.position:=progressBar1 .position + 1;

а MainForm.ProgressBar1.StepBy(counte r);
не знаю что это, но точно не то что продвигает progressBar1.