Поиск По маске

[B_N]

Сообщение от Alter

Как видите не так сложно, ищет быстро.

Только еще быстрее будет проверять маску прямо в одном цикле с FindNext, не создавая горы строковых списков и прочего.

[Alter]

Сообщение от B_N

Только еще быстрее будет проверять маску прямо в одном цикле с FindNext, не создавая горы строковых списков и прочего.

Это я вырезал у себя, и вставил сюда отдельно. А использую я его при поиске, если незаметили. Список масок создаётся при старте программы, или когда кому там надо.

Смотрите и убедитесь, я проверяю там где надо. Я использую нормальную поисковую процедуру, которая удовлетворяет мои запросы.

Вот вырезал чтобы убедились, только убрал из поиска прогресс, паузу и стоп:

Здесь

Uses Masks;
....................................................................................................
Var LItems :TStrings; // Список масок, загружается(заполняется) до начала поиска | LItems := TStringList.Create;
....................................................................................................
implementation

{$R *.dfm}

....................................................................................................

procedure TForm1.FindFiles(StartFolder, Mask: string; List: TStrings;
  ScanSubFolders: Boolean=True);
var
  SearchRec: TSearchRec;
  FindResult: Integer;
begin
  List.BeginUpdate;
  try
    StartFolder:=IncludeTrailingBackslash(StartFolder);
    FindResult:=FindFirst(StartFolder+'*.*', faAnyFile, SearchRec);
    try
      while FindResult=0 do
        with SearchRec do
        Begin
    Application.ProcessMessages();

          if (Attr and faDirectory)<>0 then
          begin
            if ScanSubFolders and (Name<>'.') and (Name<>'..') then
              FindFiles(StartFolder+Name, Mask, List, ScanSubFolders);
          end
           Else
          Begin
            if FileInMask(Name, LItems)  Then // Смотрим совпадение с масками
              List.Add(StartFolder + Name);
          End;
          FindResult:=FindNext(SearchRec);

        End;
    finally
      FindClose(SearchRec);
    end;
  finally
    List.EndUpdate;
  end;
end;

Function TForm1.FileInMask(S :String; Lst :TStrings):Boolean;   
Var I, II :LongInt;   
begin//Проверка файла на наличие его в списке Маск поиска   
 Result := False;   
 IF Length(S)<=0 Then Exit;   
   II := Lst.Count;   
 IF II>0 Then   
 For I:=0 To II - 1 DO   
 begin  
  Application.ProcessMessages();   
  IF MatchesMask(S, Lst[i]) Then // Если соответствует маске, выходим   
  begin  
   Result := True;   
   Break;   
  end;   
 end;   
end;

....................................................................................................

___________________________________ ____________________________
Надо внимательнее смотреть что пишу .