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

Comparing ibx/trunk/fbintf/client/FBArray.pas (file contents):
Revision 308 by tony, Fri Apr 17 10:26:08 2020 UTC vs.
Revision 309 by tony, Tue Jul 21 08:00:42 2020 UTC

# Line 90 | Line 90 | type
90     function GetName: AnsiString; override;
91     function GetScale: integer; override;
92     function GetSize: integer;
93 +   function GetCharSetWidth: integer; override;
94     function GetAsString: AnsiString; override;
95     procedure SetAsLong(Value: Long); override;
96     procedure SetAsShort(Value: Short); override;
# Line 127 | Line 128 | type
128     function GetScale: integer;
129     function GetSize: cardinal;
130     function GetCharSetID: cardinal; virtual; abstract;
131 +   function GetCharSetWidth: integer; virtual; abstract;
132     function GetTableName: AnsiString;
133     function GetColumnName: AnsiString;
134     function GetDimensions: integer;
# Line 182 | Line 184 | type
184      function GetScale: integer;
185      function GetSize: cardinal;
186      function GetCharSetID: cardinal;
187 +    function GetCharSetWidth: integer;
188      function GetTableName: AnsiString;
189      function GetColumnName: AnsiString;
190      function GetDimensions: integer;
# Line 300 | Line 303 | begin
303    Result := GetDataLength;
304   end;
305  
306 + function TFBArrayElement.GetCharSetWidth: integer;
307 + begin
308 +  Result := FArray.FMetaData.GetCharSetWidth;
309 + end;
310 +
311   function TFBArrayElement.GetAsString: AnsiString;
312   var rs: RawByteString;
313   begin
# Line 856 | Line 864 | begin
864    Result := FMetaData.GetCharSetID;
865   end;
866  
867 + function TFBArray.GetCharSetWidth: integer;
868 + begin
869 +  Result := FMetaData.GetCharSetWidth;
870 + end;
871 +
872   function TFBArray.GetTableName: AnsiString;
873   begin
874    Result := FMetaData.GetTableName;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines