ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/DataAccess/DataAccess.pas
(Generate patch)

Comparing oup/current/DataAccess/DataAccess.pas (file contents):
Revision 227 by alloc, Tue Jun 19 22:06:10 2007 UTC vs.
Revision 241 by alloc, Tue Jul 17 22:27:16 2007 UTC

# Line 24 | Line 24 | type
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 49 | 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 75 | 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)