mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Incorrect implementation of CheckFile function

Browse source
This commit is contained in:
Alexander Koblov 2015-08-25 15:51:20 +00:00
commit ca17a3da5b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ufindfiles.pas
View file

@ -442,6 +442,7 @@ end;
function CheckFile(const SearchTemplate: TSearchTemplateRec; const FileChecks: TFindFileChecks; const AFile: TFile): Boolean;
var
IsDir: Boolean;
DirectoryName: String;
begin
Result := True;
with SearchTemplate do
@ -450,10 +451,9 @@ begin
if (fpName in AFile.SupportedProperties) then
begin
if IsDir then
Result := CheckDirectoryName(FileChecks, AFile.Name)
else
Result := CheckFileName(FileChecks, AFile.Name);
DirectoryName:= ExtractFileName(ExcludeTrailingBackslash(AFile.Path));
Result := CheckDirectoryName(FileChecks, DirectoryName);
if Result then Result := CheckFileName(FileChecks, AFile.Name);
end;
if Result and (fpModificationTime in AFile.SupportedProperties) then