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

Comparing ibx/trunk/fbintf/client/FBParamBlock.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

# Line 165 | Line 165 | type
165     {$ENDIF}
166    end;
167  
168 +  { TDIRBItem }
169 +
170 +  TDIRBItem = class(TParamBlockItem,IDIRBItem)
171 +  public
172 +   {$IFDEF FPC}
173 +    procedure IDIRBItem.SetAsInteger = SetAsInteger2;
174 +   {$ELSE}
175 +    procedure SetAsInteger(aValue: integer);
176 +   {$ENDIF}
177 +  end;
178 +
179    { TCustomParamBlock }
180  
181   {$IFDEF FPC}
# Line 215 | Line 226 | type
226     constructor Create;
227    end;
228  
229 +  TDIRB = class (TCustomParamBlock<TDIRBItem,IDIRBItem>, IDIRB);
230 +
231   implementation
232  
233   uses FBMessages {$IFNDEF FPC} , TypInfo {$ENDIF};
# Line 222 | Line 235 | uses FBMessages {$IFNDEF FPC} , TypInfo
235   const
236    MaxBufferSize = 65535;
237  
238 + { TDIRBItem }
239 + {$IFNDEF FPC}
240 + procedure TDIRBItem.SetAsInteger(aValue: integer);
241 + begin
242 +  SetAsInteger2(aValue);
243 + end;
244 + {$ENDIF}
245 +
246   { TBPBItem }
247   {$IFNDEF FPC}
248   procedure TBPBItem.SetAsInteger(aValue: integer);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines