ViewVC Help

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

root/public/ibx/trunk/fbintf/client/FBArray.pas

Comparing ibx/trunk/fbintf/client/FBArray.pas (file contents):
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC vs.
Revision 263 by tony, Thu Dec 6 15:55:01 2018 UTC

#	Line 138 | Line 138 | type
138
139		TFBArray = class(TActivityReporter,IArray)
140		private
141	+	FFirebirdClientAPI: TFBClientAPI;
142		FMetaData: IArrayMetaData;
143		FIsNew: boolean;
144		FLoaded: boolean;
#	Line 274 | Line 275 | end;
275
276		constructor TFBArrayElement.Create(anArray: TFBArray; P: PByte);
277		begin
278	<	inherited Create;
278	>	inherited Create(anArray.FFirebirdClientAPI);
279		FArray := anArray;
280		FBufPtr := P;
281		end;
#	Line 656 | Line 657 | begin
657		end;
658		FBufSize := FElementSize * l;
659
660	<	with FirebirdClientAPI do
660	>	with FFirebirdClientAPI do
661		IBAlloc(FBuffer,0,FBufSize);
662
663		Dims := GetDimensions;
#	Line 745 | Line 746 | begin
746		inherited Create(aTransaction);
747		FMetaData := aField;
748		FAttachment := aAttachment;
749	+	FFirebirdClientAPI := aTransaction.FirebirdAPI;
750		FTransactionIntf :=  aTransaction;
751		FTransactionSeqNo := aTransaction.TransactionSeqNo;
752		FIsNew := true;

Diff Legend

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