ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/fbintf/client/FBStatement.pas
(Generate patch)

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