Converter: Add error message when modules.txt is not present (#430)

dazedcat19 · Mar 21, 2021 · 4f291ae · 4f291ae
1 parent b5f96f4
commit 4f291ae
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/utils/userdataconverter/converter.lpr b/utils/userdataconverter/converter.lpr
@@ -73,12 +73,17 @@ function QuotedStrD(const S: String): String;
     modules.Sorted := false;
     modules.LoadFromFile('modules.txt');
     for i:=0 to modules.Count-1 do
-    begin
+      begin
       m:=modules[i].Split(' ');
       modules[i] := m[1]+'='+m[0];
-    end;
+      end;
     modules.Sorted := true;
     modules.CaseSensitive := false;
+  end
+  else
+    begin
+    writeln('modules.txt not found! Exiting... ');
+    exit;
   end;