FIX: the issue of hashKey in TSearchResultFileSource (files in TSearchResultFileSource do not have a unified parent path)

This commit is contained in:
rich2014 2025-12-06 15:34:07 +08:00
commit c8e9765bb1

View file

@ -1061,15 +1061,9 @@ begin
end;
function TFileView.calcFileHashKey(const FileName, APath: String): String;
var
subPath: String;
begin
if fspMounted in FileSource.GetProperties then begin
if FFlatView then begin
Result := ExcludeTrailingPathDelimiter( APath + FileName );
end else if FFlatView then begin
subPath := APath.Substring( currentPath.Length );
if subPath<>EmptyStr then subPath := IncludeTrailingPathDelimiter(subPath);
Result := subPath + FileName;
end else begin
Result := FileName;
end;