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 263 by tony, Thu Dec 6 15:55:01 2018 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 161 | Line 163 | type
163      FBufSize: ISC_LONG;
164      FArrayID: TISC_QUAD;
165      procedure AllocateBuffer; virtual;
166 <    procedure Changing;
167 <    procedure Changed;
166 >    procedure Changing; virtual;
167 >    procedure Changed;  virtual;
168      function GetArrayDesc: PISC_ARRAY_DESC;
169      procedure InternalGetSlice; virtual; abstract;
170      procedure InternalPutSlice(Force: boolean); virtual; abstract;
# 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 765 | Line 773 | begin
773    FMetaData := aField;
774    FArrayID := ArrayID;
775    FAttachment := aAttachment;
776 +  FFirebirdClientAPI := aTransaction.FirebirdAPI;
777    FTransactionIntf :=  aTransaction;
778    FTransactionSeqNo := aTransaction.TransactionSeqNo;
779    FIsNew := false;
# Line 855 | 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