changed some backslashes to forward slashes

[d2df-editor.git] / src / shared / WADEDITOR.pas

diff --git a/src/shared/WADEDITOR.pas b/src/shared/WADEDITOR.pas
index b533664d29bb1c60e3ccf11da9131f8a97a123ea..26110093c33f149d023741811db89865be5183c5 100644 (file)
--- a/src/shared/WADEDITOR.pas
+++ b/src/shared/WADEDITOR.pas
@@ -1,12 +1,10 @@
 unit WADEDITOR;
 
-{$MODE Delphi}
-
 {
 -----------------------------------
-WADEDITOR.PAS ВЕРСИЯ ОТ 26.08.08
+WADEDITOR.PAS ÂÅÐÑÈß ÎÒ 26.08.08
 
-Поддержка вадов версии 1
+Ïîääåðæêà âàäîâ âåðñèè 1
 -----------------------------------
 }
 
@@ -77,7 +75,7 @@ const
 implementation
 
 uses
-  SysUtils, BinEditor, ZLib;
+  SysUtils, BinEditor, ZLib, utils;
 
 const
   DFWAD_OPENED_NONE   = 0;
@@ -293,7 +291,7 @@ var
 begin
  Result := False;
 
- AssignFile(ResourceFile, FileName);
+ AssignFile(ResourceFile, findFileCIStr(FileName));
 
  try
   Reset(ResourceFile, 1);
@@ -423,7 +421,7 @@ begin
  if FResData <> nil then FreeMem(FResData);
 
  try
-  AssignFile(WADFile, FFileName);
+  AssignFile(WADFile, findFileCIStr(FFileName));
   Reset(WADFile, 1);
 
   b := 6+SizeOf(TWADHeaderRec_1)+SizeOf(TResourceTableRec_1)*Length(FResTable);
@@ -580,7 +578,7 @@ begin
  if FWADOpened = DFWAD_OPENED_FILE then
  begin
   try
-   AssignFile(WADFile, FFileName);
+   AssignFile(WADFile, findFileCIStr(FFileName));
    Reset(WADFile, 1);
 
    Seek(WADFile, FResTable[i].Address+6+
@@ -697,7 +695,7 @@ begin
 
  FFileName := FileName;
 
- AssignFile(WADFile, FFileName);
+ AssignFile(WADFile, findFileCIStr(FFileName));
 
  try
   Reset(WADFile, 1);