ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/client/FBArray.pas

Comparing ibx/trunk/fbintf/client/FBArray.pas (file contents):
Revision 291 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