index 3830af240f6f924519c5704f81f1dc9683ab0dc5..a916ff6ceb694d234c337faeae4646e3cffb3e5f 100644 (file)
--- a/src/shared/wadreader.pas
+++ b/src/shared/wadreader.pas
type
SArray = array of ShortString;
type
SArray = array of ShortString;
- TWADFile = class(TObject)
+ TWADFile = class
private
fFileName: AnsiString; // empty: not opened
fIter: TSFSFileList;
private
fFileName: AnsiString; // empty: not opened
fIter: TSFSFileList;
function GetResourceEx (name: AnsiString; wantMap: Boolean; var pData: Pointer; var Len: Integer): Boolean;
public
function GetResourceEx (name: AnsiString; wantMap: Boolean; var pData: Pointer; var Len: Integer): Boolean;
public
- constructor Create();
- destructor Destroy(); override;
+ constructor Create ();
+ destructor Destroy (); override;
- procedure FreeWAD();
+ procedure FreeWAD ();
function ReadFile (FileName: AnsiString): Boolean;
function ReadMemory (Data: Pointer; Len: LongWord): Boolean;
function ReadFile (FileName: AnsiString): Boolean;
function ReadMemory (Data: Pointer; Len: LongWord): Boolean;
implementation
uses
implementation
uses
- SysUtils, e_log, utils, MAPSTRUCT;
+ SysUtils, e_log, utils, MAPDEF;
function findDiskWad (fname: AnsiString): AnsiString;
function findDiskWad (fname: AnsiString): AnsiString;