git_admin/Virtual-File-System
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Virtual-File-System synced 2025-12-19 18:03:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

Removed application duplicate directory items file matching in order to support native 8.3 file names

Browse Source
This commit is contained in:
Berserker 2019-05-25 15:53:12 +03:00
parent f62819869e
commit fa991ef152
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
VfsUtils.pas
View File

@ -664,18 +664,16 @@ procedure GetDirectoryListing (const SearchPath, FileMask: WideString; {Un} Excl
var var
{O} Items: {O} TList {OF TDirListingItem}; {O} Items: {O} TList {OF TDirListingItem};
{O} Item: {O} TDirListingItem; {O} Item: {O} TDirListingItem;
CompiledMask: Utils.TArrayOfByte;
i: integer; i: integer;
begin begin
{!} Assert(DirListing <> nil); {!} Assert(DirListing <> nil);
Items := DataLib.NewList(Utils.OWNS_ITEMS); Items := DataLib.NewList(Utils.OWNS_ITEMS);
Item := TDirListingItem.Create; Item := TDirListingItem.Create;
CompiledMask := VfsMatching.CompilePattern(FileMask);
// * * * * * // // * * * * * //
with VfsUtils.SysScanDir(SearchPath, FileMask) do begin with VfsUtils.SysScanDir(SearchPath, FileMask) do begin
while IterNext(Item.Info.FileName, @Item.Info.Base) do begin while IterNext(Item.Info.FileName, @Item.Info.Base) do begin
if VfsMatching.MatchPattern(Item.Info.FileName, pointer(CompiledMask)) and ((Exclude = nil) or (Exclude[WideStrToCaselessKey(Item.Info.FileName)] = nil)) then begin if (Exclude = nil) or (Exclude[WideStrToCaselessKey(Item.Info.FileName)] = nil) then begin
Item.SearchName := StrLib.WideLowerCase(Item.Info.FileName); Item.SearchName := StrLib.WideLowerCase(Item.Info.FileName);
Items.Add(Item); Item := nil; Items.Add(Item); Item := nil;
Item := TDirListingItem.Create; Item := TDirListingItem.Create;