GIT
/
REPO
/
FRED-BOY
Projects
/
d2df-sdl.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Game: Handle load errors correctly
[d2df-sdl.git]
/
src
/
shared
/
utils.pas
diff --git
a/src/shared/utils.pas
b/src/shared/utils.pas
index 16006052e826e21e09f2f0cdfd1cc3247f095864..e62cc1c3fccd98571e3e6680a0216e093c452e86 100644
(file)
--- a/
src/shared/utils.pas
+++ b/
src/shared/utils.pas
@@
-1129,7
+1129,7
@@
begin
end;
end;
-const fileExtensions: array [0..6] of AnsiString = ('.
wad', '.dfzip', '.dfwad', '.pk3', '.pak', '.zip', '.dfz
');
+const fileExtensions: array [0..6] of AnsiString = ('.
dfz', '.wad', '.dfwad', '.pk3', '.pak', '.zip', '.dfzip
');
function findDiskWad (fname: AnsiString): AnsiString;
var
function findDiskWad (fname: AnsiString): AnsiString;
var
@@
-1159,7
+1159,7
@@
end;
function openDiskFileRO (pathname: AnsiString): TStream;
begin
function openDiskFileRO (pathname: AnsiString): TStream;
begin
- if not findFileCI(pathname) then raise Exception.Create('can''t open file "'+pathname+'"');
+ if not findFileCI(pathname) then raise E
FileNotFoundE
xception.Create('can''t open file "'+pathname+'"');
result := TFileStream.Create(pathname, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
end;
result := TFileStream.Create(pathname, fmOpenRead or {fmShareDenyWrite}fmShareDenyNone);
end;
DEADSOFTWARE 2012-2025