Changeset 187 for trunk/Packages

Timestamp:

Jul 11, 2018, 3:49:23 PM (6 years ago)

Author:

chronos

Message:

• Modified: Reordered items in Tools menu.
• Added: Icon to Document check.

File:

• trunk/Packages/Common/UCommon.pas (modified) (3 diffs)

trunk/Packages/Common/UCommon.pas

@@ -73 +73 @@
 function LoadFileToStr(const FileName: TFileName): AnsiString;
 procedure SearchFiles(AList: TStrings; Dir: string;
-  FilterMethod: TFilterMethodMethod);
+  FilterMethod: TFilterMethodMethod = nil);
 function GetStringPart(var Text: string; Separator: string): string;
 function PosFromIndex(SubStr: string; Text: string;
@@ -528 +528 @@
 
 procedure SearchFiles(AList: TStrings; Dir: string;
-  FilterMethod: TFilterMethodMethod);
+  FilterMethod: TFilterMethodMethod = nil);
 var
   SR: TSearchRec;
@@ -536 +536 @@
     try
       repeat
-        if (SR.Name = '.') or (SR.Name = '..') or not FilterMethod(SR.Name) or
-          not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name) then Continue;
+        if (SR.Name = '.') or (SR.Name = '..') or (Assigned(FilterMethod) and (not FilterMethod(SR.Name) or
+          not FilterMethod(Copy(Dir, 3, Length(Dir)) + SR.Name))) then Continue;
         AList.Add(Dir + SR.Name);
         if (SR.Attr and faDirectory) <> 0 then