Browse Source

+ Patched FSearch from Frank McCormick

michael 26 years ago
parent
commit
8dc64344fd
1 changed files with 5 additions and 2 deletions
  1. 5 2
      rtl/win32/dos.pp

+ 5 - 2
rtl/win32/dos.pp

@@ -719,7 +719,7 @@ begin
           if dirlist[i]='/' then dirlist[i]:='\';
           if dirlist[i]='/' then dirlist[i]:='\';
         repeat
         repeat
           p1:=pos(';',dirlist);
           p1:=pos(';',dirlist);
-          if p1=0 then
+          if p1<>0 then
            begin
            begin
              newdir:=copy(dirlist,1,p1-1);
              newdir:=copy(dirlist,1,p1-1);
              delete(dirlist,1,p1);
              delete(dirlist,1,p1);
@@ -886,7 +886,10 @@ End;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.18  1999-08-12 09:24:14  michael
+  Revision 1.19  1999-08-25 13:57:55  michael
+  + Patched FSearch from Frank McCormick
+
+  Revision 1.18  1999/08/12 09:24:14  michael
   Fixed win32finddata size; searchrec.excludeattr was overwritten.
   Fixed win32finddata size; searchrec.excludeattr was overwritten.
 
 
   Revision 1.17  1999/05/16 17:08:59  peter
   Revision 1.17  1999/05/16 17:08:59  peter