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

This commit is contained in:
Inareous 2021-03-21 13:04:27 +07:00 committed by GitHub
parent b5f96f4008
commit 4f291ae7a3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -73,12 +73,17 @@ begin
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;