fix file opening from command line

[d2df-editor.git] / src / editor / Editor.lpr

diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index b96ed23cf0adbf4d55c0d167410ffcd8685dead4..171c8564c25c7313e70c80e65dc5cd8d0ee7aa10 100644 (file)
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -120,15 +120,11 @@ uses
   end;
 
   procedure CheckParamFiles;
-    var i: Integer; path: AnsiString;
+    var i: Integer;
   begin
     i := ParamFileIndex;
     if i <= ParamCount then
-    begin
-      path := ParamStr(i);
-      if path <> '' then
-        OpenMap(path, '');
-    end;
+      StartMap := ParamStr(i);
   end;
 
   procedure InitLogs;