Changeset 82 for trunk/NewView/GlobalSearchForm.pas

Timestamp:

Feb 25, 2007, 4:15:10 PM (18 years ago)

Author:

RBRi

Message:

file util refactoring and many more unit tests

File:

• trunk/NewView/GlobalSearchForm.pas (modified) (4 diffs)

trunk/NewView/GlobalSearchForm.pas

@@ -143 +143 @@
   SysUtils,
   DebugUnit,
-  ACLFileUtility,
   ACLDialogs,
   ControlsUtility,
@@ -153 +152 @@
   SearchDirectoriesFormUnit,
   SettingsUnit,
-  InformationFormUnit;
+  InformationFormUnit,
+  FileUtilsUnit;
 
 type
@@ -517 +517 @@
     begin
       Dir := StrLeftWithout( Dir, 3 );
-      ListDirectoryRecursiveAdditive2( Dir,
+      ListFilesInDirectoryRecursiveWithTermination(
+                                       Dir,
                                        '*.inf;*.hlp',
-                                       Dir, // want full paths
                                        Files,
-                                       nil, // don't care to know subdirs
                                        ThreadManager.StopRequested,
                                        true ); // check termination
@@ -527 +526 @@
     else
     begin
-      ListDirectoryAdditive( Dir,
-                             '*.inf;*.hlp',
-                             Dir, // want full paths
-                             Files,
-                             nil ); // don't care to know subdirs
+      ListFilesInDirectory( Dir,
+                            '*.inf;*.hlp',
+                            Files);
     end;
   end;