index 8207f602fcac68605e3d9d58194b117ddb4cc65c..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;