Browse Source

+ Small edit in paramstr

michael 26 năm trước cách đây
mục cha
commit
8d19cb94db
1 tập tin đã thay đổi với 5 bổ sung2 xóa
  1. 5 2
      rtl/win32/syswin32.pp

+ 5 - 2
rtl/win32/syswin32.pp

@@ -219,7 +219,7 @@ end;
 function paramstr(l : longint) : string;
 
 begin
-  if (l>=0) and (l+1<=argc) then
+  if (l>=0) and (l<argc) then
     paramstr:=strpas(argv[l])
   else
     paramstr:='';
@@ -1009,7 +1009,10 @@ end.
 
 {
   $Log$
-  Revision 1.42  1999-07-07 09:43:16  michael
+  Revision 1.43  1999-07-07 10:04:43  michael
+  + Small edit in paramstr
+
+  Revision 1.42  1999/07/07 09:43:16  michael
   Better construction of commandline argv
 
   Revision 1.41  1999/07/05 20:04:30  peter