fix access violation on empty argument

[mp2df.git] / mp2df.pas

diff --git a/mp2df.pas b/mp2df.pas
index f25ee8889fd5f4f315b4a1a97ec8b5896d410251..989e66ba3347a3abe054e82946554057572b6c95 100644 (file)
--- 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