Changeset 82 for trunk/NewView/FileDialogForm.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/FileDialogForm.pas (modified) (5 diffs)

trunk/NewView/FileDialogForm.pas

@@ -124 +124 @@
   SysUtils,
   ACLStringUtility,
-  ACLFileUtility,
+  FileUtilsUnit,
   ACLDialogs,
   ACLString,
@@ -487 +487 @@
   // (in order to support typing directories, either full or relative)
   Directory := DirectoryListBox.Directory;
-  NewDirectory := ACLFileUtility.ExpandPath( Directory, FileNameText );
+  NewDirectory := ExpandPath( Directory, FileNameText );
 
   DosErrorAPI( FERR_DISABLEHARDERR );
@@ -521 +521 @@
     // Work out directory
     FilePath := ExtractFilePath( FileName );
-    FilePath := ACLFileUtility.ExpandPath( Directory, FilePath );
-
-    FileName := AddSlash( FilePath )
+    FilePath := ExpandPath( Directory, FilePath );
+
+    FileName := AddDirectorySeparator( FilePath )
                 + ExtractFileName( FileName );
     if RequireFileExists then
@@ -592 +592 @@
   DosErrorAPI( FERR_DISABLEHARDERR );
 
-  ListDirectory( DirectoryListBox.Directory,
-                 FileMask,
-                 Filenames,
-                 nil );
+  ListFilesInDirectory( DirectoryListBox.Directory,
+                        FileMask,
+                        Filenames);
 
   Filenames.Sort;
@@ -606 +605 @@
     Filename := Filenames[ i ];
 
-    Title := GetHelpFileTitle( AddSlash( DirectoryListBox.Directory )
+    Title := GetHelpFileTitle( AddDirectorySeparator( DirectoryListBox.Directory )
                                + Filename );