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 227 by alloc, Tue Jun 19 22:06:10 2007 UTC vs.
Revision 229 by alloc, Wed Jun 20 10:57:51 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 75 | Line 75 | implementation
75		Implementation of TDataAccess
76		*)
77
78	+	constructor TDataAccess.Create(FileName: String; ConnectionID: Integer;
79	+	var Msg: TStatusMessages);
80	+	begin
81	+	FMeta := TMetaManager.Create(FConnectionID, Self);
82	+	end;
83	+
84	+
85	+
86		function TDataAccess.ExtractFileIDOfName(Name: String): Integer;
87		begin
88		if Name[5] = '-' then

Diff Legend

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