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: Find files - find text in the drive root (issue #839)

Browse source
This commit is contained in:
Alexander Koblov 2023-03-04 18:13:56 +03:00
commit 25ec33e563
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ufindthread.pas
View file

@ -739,7 +739,7 @@ var
end;
begin
AFileName:= Folder + PathDelim + sr.Name;
AFileName:= IncludeTrailingBackslash(Folder) + sr.Name;
if (FPS_ISDIR(sr.Attr) or FileIsLinkToDirectory(AFileName, sr.Attr)) then
Exit(False);
@ -838,10 +838,10 @@ begin
Exit(False);
try
Result := FindInFile(Folder + PathDelim + sr.Name, FindText, CaseSensitive, TextRegExp);
Result := FindInFile(IncludeTrailingBackslash(Folder) + sr.Name, FindText, CaseSensitive, TextRegExp);
if (Result and IsReplaceText) then
FileReplaceString(Folder + PathDelim + sr.Name, FindText, ReplaceText, CaseSensitive, TextRegExp);
FileReplaceString(IncludeTrailingBackslash(Folder) + sr.Name, FindText, ReplaceText, CaseSensitive, TextRegExp);
if NotContainingText then
Result := not Result;
@ -853,7 +853,7 @@ begin
if (log_errors in gLogOptions) then
begin
logWrite(Self, rsMsgLogError + E.Message + ' (' +
Folder + PathDelim + sr.Name + ')', lmtError);
IncludeTrailingBackslash(Folder) + sr.Name + ')', lmtError);
end;
end;
end;