delphi 加载文件列表显示进度条

uses IOUtils, Types;

procedure TProgressForm.ProgressBarStepItOne;

begin

ProgressBar1.StepBy(1);

ProgressBar1.StepBy(-1);

ProgressBar1.StepBy(1);

//same as

ProgressBar1.Position := 1 + ProgressBar1.Position;

ProgressBar1.Position := -1 + ProgressBar1.Position;

ProgressBar1.Position := 1 + ProgressBar1.Position;

end;

procedure TProgressForm.Button1Click(Sender: TObject);

var

dirFiles : TStringDynArray;

aFile : string;

begin

dirFiles := TDirectory.GetFiles('C:\SomeFolderWithPasFiles');

ProgressBar1.Max := Length(dirFiles);

ProgressBar1.Position := 0;

for aFile in dirFiles do

begin

if TPath.MatchesPattern(ExtractFileName(aFile),'*.pas',false) then

begin

//do something with .PAS files that could take time

end;

ListBox1.Items.Add(aFile);

ProgressBarStepItOne;

end;

ProgressBar1.Position := 0;

end;

推荐分享