Changeset 89 for trunk/NewView/FileUtilsUnit.pas

Timestamp:

Mar 2, 2007, 8:27:17 PM (18 years ago)

Author:

RBRi

Message:

small fixes

File:

• trunk/NewView/FileUtilsUnit.pas (modified) (2 diffs)

trunk/NewView/FileUtilsUnit.pas

@@ -192 +192 @@
     tmpDirectories.Destroy;
 
-//    Result := StrTrimRightChars(Result, [DirectorySeparator]);
-
     if Length(Result) = 2 then
     begin
@@ -374 +372 @@
         if tmpSearchResults.Attr And faDirectory = 0 then
         begin
-          aList.Add(AddDirectorySeparatorIfNotEmpty(aDirectory) + tmpSearchResults.Name );
+          aList.Add(tmpSearchResults.Name);
         end;