diff --git a/mp2df.pas b/mp2df.pas
index f25ee8889fd5f4f315b4a1a97ec8b5896d410251..989e66ba3347a3abe054e82946554057572b6c95 100644 (file)
--- a/mp2df.pas
+++ b/mp2df.pas
while (i <= ParamCount) and (not done) do
begin
str := ParamStr(i);
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
if not done then
begin
case str of