--- ibx/trunk/fbintf/client/3.0/FB30Statement.pas	2020/07/18 10:26:30	308
+++ ibx/trunk/fbintf/client/3.0/FB30Statement.pas	2020/07/21 08:00:42	309
@@ -117,6 +117,7 @@ type
      function GetScale: integer; override;
      function GetCharSetID: cardinal; override;
      function GetCodePage: TSystemCodePage; override;
+     function GetCharSetWidth: integer; override;
      function GetIsNull: Boolean;   override;
      function GetIsNullable: boolean; override;
      function GetSQLData: PByte;  override;
@@ -359,6 +360,13 @@ begin
      CharSetID2CodePage(GetCharSetID,result);
 end;
 
+function TIBXSQLVAR.GetCharSetWidth: integer;
+begin
+  result := 1;
+  with Statement.GetAttachment DO
+    CharSetWidth(GetCharSetID,result);
+end;
+
 function TIBXSQLVAR.GetIsNull: Boolean;
 begin
   Result := IsNullable and (FSQLNullIndicator^ = -1);