Browse Source

* DirectoryExists declaration changed to that one from fixes branch

Tomas Hajny 22 years ago
parent
commit
9e0f41900a
4 changed files with 20 additions and 8 deletions
  1. 5 2
      rtl/go32v2/sysutils.pp
  2. 5 2
      rtl/objpas/filutilh.inc
  3. 5 2
      rtl/unix/sysutils.pp
  4. 5 2
      rtl/win32/sysutils.pp

+ 5 - 2
rtl/go32v2/sysutils.pp

@@ -267,7 +267,7 @@ begin
 end;
 
 
-Function DirectoryExists (Const DirName : String) : Boolean;
+Function DirectoryExists (Const Directory : String) : Boolean;
 Var
   Sr : Searchrec;
 begin
@@ -751,7 +751,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.12  2003-03-28 19:06:59  peter
+  Revision 1.13  2003-03-29 18:21:42  hajny
+    * DirectoryExists declaration changed to that one from fixes branch
+
+  Revision 1.12  2003/03/28 19:06:59  peter
     * directoryexists added
 
   Revision 1.11  2003/01/03 20:41:04  peter

+ 5 - 2
rtl/objpas/filutilh.inc

@@ -70,7 +70,7 @@ Procedure FileClose (Handle : Longint);
 Function FileTruncate (Handle,Size: Longint) : boolean;
 Function FileAge (Const FileName : String): Longint;
 Function FileExists (Const FileName : String) : Boolean;
-Function DirectoryExists (Const DirName : String) : Boolean;
+Function DirectoryExists (Const Directory : String) : Boolean;
 Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
 Function FindNext (Var Rslt : TSearchRec) : Longint;
 Procedure FindClose (Var F : TSearchrec);
@@ -85,7 +85,10 @@ Function FileSearch (Const Name, DirList : String) : String;
 
 {
   $Log$
-  Revision 1.8  2003-03-28 19:06:59  peter
+  Revision 1.9  2003-03-29 18:21:41  hajny
+    * DirectoryExists declaration changed to that one from fixes branch
+
+  Revision 1.8  2003/03/28 19:06:59  peter
     * directoryexists added
 
   Revision 1.7  2003/01/03 20:41:04  peter

+ 5 - 2
rtl/unix/sysutils.pp

@@ -142,7 +142,7 @@ begin
 end;
 
 
-Function DirectoryExists (Const DirName : String) : Boolean;
+Function DirectoryExists (Const Directory : String) : Boolean;
 
 Var Info : Stat;
 
@@ -491,7 +491,10 @@ end.
 {
 
   $Log$
-  Revision 1.15  2003-03-28 19:06:59  peter
+  Revision 1.16  2003-03-29 18:21:42  hajny
+    * DirectoryExists declaration changed to that one from fixes branch
+
+  Revision 1.15  2003/03/28 19:06:59  peter
     * directoryexists added
 
   Revision 1.14  2003/01/03 20:41:04  peter

+ 5 - 2
rtl/win32/sysutils.pp

@@ -186,7 +186,7 @@ begin
 end;
 
 
-Function DirectoryExists (Const DirName : String) : Boolean;
+Function DirectoryExists (Const Directory : String) : Boolean;
 var
   Handle: THandle;
   FindData: TWin32FindData;
@@ -683,7 +683,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.20  2003-03-28 19:06:59  peter
+  Revision 1.21  2003-03-29 18:21:42  hajny
+    * DirectoryExists declaration changed to that one from fixes branch
+
+  Revision 1.20  2003/03/28 19:06:59  peter
     * directoryexists added
 
   Revision 1.19  2003/01/03 20:41:04  peter