ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/DataAccess/DataAccess.pas

Comparing oup/current/DataAccess/DataAccess.pas (file contents):
Revision 193 by alloc, Sat May 26 14:24:55 2007 UTC vs.
Revision 241 by alloc, Tue Jul 17 22:27:16 2007 UTC

#	Line 1 | Line 1
1		unit DataAccess;
2		interface
3
4	<	uses TypeDefs, Classes, StrUtils, SysUtils;
4	>	uses TypeDefs, Classes, StrUtils, SysUtils, _MetaManager;
5
6		type
7		TDataAccess = class
#	Line 13 | Line 13 | type
13		FDataOS:        TDataOS;
14		FLevelNumber:   Integer;
15		FChangeRights:  TChangeRights;
16	+	FMeta:          TMetaManager;
17		procedure SetDataOS(DataOS: TDataOS);
18		public
19		property ConnectionID: Integer      read FConnectionID;
#	Line 21 | Line 22 | type
22		property DataOS:       TDataOS      read FDataOS write SetDataOS;
23		property LevelNumber:  Integer      read FLevelNumber;
24		property ChangeRights: TChangeRights read FChangeRights;
25	+	property MetaData:     TMetaManager read FMeta;
26
27	<	constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;
27	>	constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual;
28		procedure Close; virtual; abstract;
29
30		function ExtractFileIDOfName(Name: String): Integer; virtual;
#	Line 47 | Line 49 | type
49		function GetDatLink(FileID, DatOffset: Integer): TDatLink; virtual; abstract;
50		function GetRawList(FileID: Integer): TRawDataList; virtual; abstract;
51		function GetRawInfo(FileID, DatOffset: Integer): TRawDataInfo; virtual; abstract;
52	+	function GetRawsForType(RawType: String): TRawDataList; virtual; abstract;
53
54		procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TStream); overload; virtual; abstract;
55		procedure LoadRawFile(FileID, DatOffset: Integer; var Target: TByteData); overload;
#	Line 73 | Line 76 | implementation
76		Implementation of TDataAccess
77		*)
78
79	+	constructor TDataAccess.Create(FileName: String; ConnectionID: Integer;
80	+	var Msg: TStatusMessages);
81	+	begin
82	+	FMeta := TMetaManager.Create(FConnectionID, Self);
83	+	end;
84	+
85	+
86	+
87		function TDataAccess.ExtractFileIDOfName(Name: String): Integer;
88		begin
89		if Name[5] = '-' then

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)