From: DeaDDooMER Date: Sun, 26 Apr 2020 06:31:28 +0000 (+0300) Subject: fix access violation on empty argument X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=6b2088e564090174afc8dc1eaf32df2d8c4d7a8e;p=mp2df.git fix access violation on empty argument --- diff --git a/mp2df.pas b/mp2df.pas index f25ee88..989e66b 100644 --- a/mp2df.pas +++ b/mp2df.pas @@ -943,7 +943,7 @@ program mp2df; while (i <= ParamCount) and (not done) do begin str := ParamStr(i); - done := str[1] <> '-'; + done := (Length(str) = 0) or (str[1] <> '-'); if not done then begin case str of