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

Comparing ibx/trunk/fbintf/client/FBTransaction.pas (file contents):
Revision 315 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