Reusing function

Source commit: db5176812916bbbbe7bbdec8ac506b96b5437b5b

source/core/RemoteFiles.cpp

@@ -1809,11 +1809,11 @@ void __fastcall TRemoteDirectoryCache::DoClearFileList(UnicodeString Directory,
   }
   if (SubDirs)
   {
-    Directory = UnixIncludeTrailingBackslash(Directory);
+    UnicodeString DirectoryWithSlash = UnixIncludeTrailingBackslash(Directory); // optimization
     Index = Count-1;
     while (Index >= 0)
     {
-      if (Strings[Index].SubString(1, Directory.Length()) == Directory)
+      if (UnixIsChildPath(DirectoryWithSlash, Strings[Index]))
       {
         Delete(Index);
       }