ProgressBar problem
lazarus / 10-Designer

----------------------------------------------------------------------
a.atalla · 2010-05-25 01:34

i have a text file each line in it contains a path to a file and i
make  code to copy files from those paths to another place and a
progress-bar to indicate the copying process but the progress bar
doesn't move  any help ?

Code: [Select]     sl:=TStringList.Create;
sl.LoadFromFile('/tmp/rpms.txt');
     Progressbar1.Max := sl.Count;    //set the pbar max equal no of
lines in the rpm.txt
     sl.Free;
     AssignFile(rpmsFile,'/tmp/rpms.txt');
     Reset(rpmsFile);
     while not  EOF(rpmsFile) do
           begin
           ReadLn(rpmsFile,rpm);
           rpm1 := ExtractFileName(rpm);
           CopyFile(rpm,'/tmp/yumoncd/packages/'+rpm1);
           Progressbar1.Position:= Progressbar1.Position + 1;
           end;

----------------------------------------------------------------------
theo · 2010-05-25 01:53

...
Progressbar1.Position:= Progressbar1.Position + 1;
Application.Processmessages;
...

----------------------------------------------------------------------
a.atalla · 2010-05-25 01:59

great it works  
what did this line do ????

----------------------------------------------------------------------
theo · 2010-05-25 04:14

Quote from: a.atalla on May 25, 2010, 03:59:23 amwhat did this line do
????

http://www.delphi3000.com/articles/article_585.asp

----------------------------------------------------------------------
a.atalla · 2010-05-25 05:23

thanks alot