Find File Exclude Filter

[w2m]

Does the FindFile exclude filter work or is it broken... or am I doing this wrong?
I cannot get it to work regardless of the type of syntax I use for the filter:

Find File Exclude Filter=
*.cfg
*.dof
*.dsk
*.dcu
*.exe
*.~*

Code: Select all

procedure TMainForm.FindButtonClick(Sender: TObject);
var
i: integer;
AFilter: string;
begin
// Sets FileFile properties
  FindFile.Threaded := Threaded.Checked;
  // - Name & Location & Exclude filters
  with FindFile.Criteria.Files do
  begin
    FileName := Self.FileName.Text;
    Location := Self.Location.Text;
    Subfolders := Self.Subfolders.Checked;
    for i := 0 to Filters1.Items.Count - 1 do begin
      AFilter := Filters1.Items[ i ];
      Filters.Add( AFilter );
    end;
  end;

[Kambiz]

Oops! That's a bug.
On Line #1080, remove "+ 1".

[w2m]

That did not solve the problem.

I used:
Find File Exclude Filter=
*.cfg
*.dof
*.dsk
*.dcu
*.exe
*.~*

and

Find File Exclude Filter=
<*.cfg
<*.dof
<*.dsk
<*.dcu
<*.exe
<*.~*

but all these files still appear in the results.

Bill

[w2m]

whoops... I had commented out the code that added the filter in my demo. It works now.