ViewVC Help

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

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

Comparing ibx/trunk/fbintf/client/FBTransaction.pas (file contents):
Revision 344 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC

#	Line 138 | Line 138 | type
138		function LookupItemType(ParamTypeName: AnsiString): byte; override;
139		public
140		constructor Create(api: TFBClientAPI);
141	+	function GetParamTypeName(ParamType: byte): Ansistring;
142	+	{$IFDEF FPC}
143	+	function ITPB.GetDPBParamTypeName = GetParamTypeName;
144	+	{$ELSE}
145		function GetDPBParamTypeName(ParamType: byte): Ansistring;
146	<	end;
146	>	{$ENDIF}
147	>	end;
148
149		implementation
150
#	Line 309 | Line 314 | begin
314		FBuffer^ := isc_tpb_version3;
315		end;
316
317	<	function TTPB.GetDPBParamTypeName(ParamType: byte): Ansistring;
317	>	function TTPB.GetParamTypeName(ParamType: byte): Ansistring;
318		begin
319		if ParamType <= isc_tpb_last_tpb_constant then
320		Result := TPBConstantNames[ParamType]
#	Line 317 | Line 322 | begin
322		Result := '';
323		end;
324
325	+	{$IFNDEF FPC}
326	+	function TTPB.GetDPBParamTypeName(ParamType: byte): Ansistring;
327	+	begin
328	+	Result := GetParamTypeName(ParamType);
329	+	end;
330	+	{$ENDIF}
331	+
332	+
333		function TTPB.LookupItemType(ParamTypeName: AnsiString): byte;
334		var i: byte;
335		begin

Diff Legend

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