ViewVC Help

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

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

Comparing ibx/trunk/fbintf/client/FBParamBlock.pas (file contents):
Revision 307 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC

#	Line 104 | Line 104 | type
104		function getAsString: AnsiString;
105		function getAsByte: byte;
106		procedure addByte(aValue: byte);
107	+	procedure addShortInt(aValue: ShortInt);
108		procedure addShortInteger(aValue: integer);
109		procedure setAsByte(aValue: byte);
110		procedure setAsByte2(aValue: byte);
#	Line 393 | Line 394 | begin
394		end;
395		end;
396
397	+	procedure TParamBlockItem.addShortInt(aValue: ShortInt);
398	+	var len: integer;
399	+	P: PByte;
400	+	begin
401	+	with FParamData^ do
402	+	begin
403	+	P := FBufPtr + FBufLength;
404	+	len := FBufLength + 1;
405	+	FOwner.UpdateRequestItemSize(self,len);
406	+	PShortInt(P)^ := aValue;
407	+	end;
408	+	end;
409	+
410		procedure TParamBlockItem.addShortInteger(aValue: integer);
411		var len: integer;
412		P: PByte;

Diff Legend

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