Browse Source

+ Small edit in paramstr

michael 26 years ago
parent
commit
8d19cb94db
1 changed files with 5 additions and 2 deletions
  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