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

Comparing ibx/trunk/fbintf/client/3.0/FB30Array.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 46 | Line 46 | type
46    ISDLItem = interface(IParameterBlockItem)
47      ['{a34b6064-5ae9-4fc1-85c3-f145f069b607}']
48      procedure addByte(aValue: byte);
49 +    procedure addShortInt(aValue: ShortInt);
50      procedure addShortInteger(aValue: integer);
51      procedure SetAsShortInteger(aValue: integer);
52      procedure SetAsTinyInteger(aValue: integer);
# Line 213 | Line 214 | begin
214      case array_desc_dtype of
215      blr_short,blr_long,
216      blr_int64,blr_quad:
217 <        SDLItem.AddByte(byte(array_desc_scale));
217 >        SDLItem.addShortInt(byte(array_desc_scale));
218  
219      blr_text,blr_cstring, blr_varying:
220          SDLItem.addShortInteger(array_desc_length);

Diff Legend

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