🚀 go-pugleaf

"Rodrigo Pimenta Carvalho" <pimenta@inatel.br> wrote in message
news:3DDCE658.AF38831E@inatel.br...
> Hi.
<snip>
> But, how can I add percent's information (%) to my progress bar, if I
> don't know how many directories exist in the machine?? For example, if
> the machine has just 2 directories, to each one found I would like to
> add 50% to the progress bar. But, I don't know how many directories
> there are.
<snip>
> Rodrigo Pimenta.
>
Hi Rodrigo,

Here's how I handle this... Rather than trying to guess or prescan, I
readjust the max pointer of the progress bar on the fly. It tends to get a
bit more accurate the longer it runs. The important thing it shows the user
is that progress in indeed being made. Pardon the sloppy math below... it's
on my todo list <grin>.

---
    prgBar.Max := 100;
    prgBar.Position := 0;
    {.. findfirst find next loop or recursion}
      BlindProgress(prgBar);
    {End of loop}
    prgBar.Position := prgBar.Max;
---

{Maintain an open ended progress bar}
procedure BlindProgress(Progress: TProgressBar);
var
  iPercent:
    integer;
begin
  iPercent := Trunc((Float(Progress.Position) / Float(Progress.Max)) *
Float(100));
  if iPercent >= 95 then
    Progress.Max := Progress.Position * 2;
  Progress.StepIt;
end;

{Integer to float function}
function Float(iValue: integer): extended;
begin
  Result := StrToFloat(IntToStr(iValue));
end;
__________________________
Dan Rhea
Windows Programmer
SIRS Publishing, Inc.