From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sun, 26 Apr 2020 06:31:28 +0000 (+0300)
Subject: fix access violation on empty argument
X-Git-Url: https://deadsoftware.ru/gitweb?p=mp2df.git;a=commitdiff_plain;h=6b2088e564090174afc8dc1eaf32df2d8c4d7a8e

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