Explorar o código

* fix argument names

peter %!s(int64=22) %!d(string=hai) anos
pai
achega
6547b5129f
Modificáronse 1 ficheiros con 6 adicións e 3 borrados
  1. 6 3
      rtl/go32v2/sysutils.pp

+ 6 - 3
rtl/go32v2/sysutils.pp

@@ -258,7 +258,7 @@ Function FileExists (Const FileName : String) : Boolean;
 Var
   Sr : Searchrec;
 begin
-  DOS.FindFirst(Path,$3f,sr);
+  DOS.FindFirst(FileName,$3f,sr);
   if DosError = 0 then
    begin
      { No volumeid,directory }
@@ -274,7 +274,7 @@ Function DirectoryExists (Const Directory : String) : Boolean;
 Var
   Sr : Searchrec;
 begin
-  DOS.FindFirst(Path,$3f,sr);
+  DOS.FindFirst(Directory,$3f,sr);
   if DosError = 0 then
    begin
      Result:=(sr.attr and $10)=$10;
@@ -754,7 +754,10 @@ Finalization
 end.
 {
   $Log$
-  Revision 1.14  2003-04-01 15:57:41  peter
+  Revision 1.15  2003-04-02 15:18:28  peter
+    * fix argument names
+
+  Revision 1.14  2003/04/01 15:57:41  peter
     * made THandle platform dependent and unique type
 
   Revision 1.13  2003/03/29 18:21:42  hajny