ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/fbintf/client/FBStatement.pas

Comparing ibx/trunk/fbintf/client/FBStatement.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 45 | Line 45 | uses
45		FBTransaction;
46
47		type
48	<	TPerfStatistics = array[psCurrentMemory..psFetches] of comp;
48	>	TPerfStatistics = array[psCurrentMemory..psFetches] of Int64;
49
50		{ TFBStatement }
51
#	Line 80 | Line 80 | type
80		function InternalOpenCursor(aTransaction: ITransaction): IResultSet;   virtual; abstract;
81		procedure FreeHandle;  virtual; abstract;
82		procedure InternalClose(Force: boolean); virtual; abstract;
83	+	function TimeStampToMSecs(const TimeStamp: TTimeStamp): Int64;
84		public
85		constructor Create(Attachment: IAttachment; Transaction: ITransaction;
86		sql: AnsiString; SQLDialect: integer);
#	Line 135 | Line 136 | begin
136		IBError(ibxeNotInTransaction,[]);
137		end;
138
139	+	function TFBStatement.TimeStampToMSecs(const TimeStamp: TTimeStamp): Int64;
140	+	begin
141	+	Result := TimeStamp.Time + Int64(timestamp.date)*msecsperday;
142	+	end;
143	+
144		constructor TFBStatement.Create(Attachment: IAttachment;
145		Transaction: ITransaction; sql: AnsiString; SQLDialect: integer);
146		begin

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines