--- ibx/trunk/fbintf/client/FBArray.pas	2020/07/18 10:26:30	308
+++ ibx/trunk/fbintf/client/FBArray.pas	2020/07/21 08:00:42	309
@@ -90,6 +90,7 @@ type
    function GetName: AnsiString; override;
    function GetScale: integer; override;
    function GetSize: integer;
+   function GetCharSetWidth: integer; override;
    function GetAsString: AnsiString; override;
    procedure SetAsLong(Value: Long); override;
    procedure SetAsShort(Value: Short); override;
@@ -127,6 +128,7 @@ type
    function GetScale: integer;
    function GetSize: cardinal;
    function GetCharSetID: cardinal; virtual; abstract;
+   function GetCharSetWidth: integer; virtual; abstract;
    function GetTableName: AnsiString;
    function GetColumnName: AnsiString;
    function GetDimensions: integer;
@@ -182,6 +184,7 @@ type
     function GetScale: integer;
     function GetSize: cardinal;
     function GetCharSetID: cardinal;
+    function GetCharSetWidth: integer;
     function GetTableName: AnsiString;
     function GetColumnName: AnsiString;
     function GetDimensions: integer;
@@ -300,6 +303,11 @@ begin
   Result := GetDataLength;
 end;
 
+function TFBArrayElement.GetCharSetWidth: integer;
+begin
+  Result := FArray.FMetaData.GetCharSetWidth;
+end;
+
 function TFBArrayElement.GetAsString: AnsiString;
 var rs: RawByteString;
 begin
@@ -856,6 +864,11 @@ begin
   Result := FMetaData.GetCharSetID;
 end;
 
+function TFBArray.GetCharSetWidth: integer;
+begin
+  Result := FMetaData.GetCharSetWidth;
+end;
+
 function TFBArray.GetTableName: AnsiString;
 begin
   Result := FMetaData.GetTableName;