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

Comparing ibx/trunk/fbintf/client/3.0/FB30Statement.pas (file contents):
Revision 308 by tony, Fri Jan 18 11:10:37 2019 UTC vs.
Revision 309 by tony, Tue Jul 21 08:00:42 2020 UTC

# Line 117 | Line 117 | type
117       function GetScale: integer; override;
118       function GetCharSetID: cardinal; override;
119       function GetCodePage: TSystemCodePage; override;
120 +     function GetCharSetWidth: integer; override;
121       function GetIsNull: Boolean;   override;
122       function GetIsNullable: boolean; override;
123       function GetSQLData: PByte;  override;
# Line 359 | Line 360 | begin
360       CharSetID2CodePage(GetCharSetID,result);
361   end;
362  
363 + function TIBXSQLVAR.GetCharSetWidth: integer;
364 + begin
365 +  result := 1;
366 +  with Statement.GetAttachment DO
367 +    CharSetWidth(GetCharSetID,result);
368 + end;
369 +
370   function TIBXSQLVAR.GetIsNull: Boolean;
371   begin
372    Result := IsNullable and (FSQLNullIndicator^ = -1);

Diff Legend

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