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

Comparing ibx/trunk/fbintf/client/2.5/FB25Array.pas (file contents):
Revision 308 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 309 by tony, Tue Jul 21 08:00:42 2020 UTC

# Line 48 | Line 48 | type
48    TFB25ArrayMetaData = class(TFBArrayMetaData,IArrayMetaData)
49    private
50      FCodePage: TSystemCodePage;
51 +    FCharSetWidth: integer;
52    protected
53      procedure LoadMetaData(aAttachment: IAttachment; aTransaction: ITransaction;
54                     relationName, columnName: AnsiString); override;
55    public
56      function GetCharSetID: cardinal; override;
57      function GetCodePage: TSystemCodePage; override;
58 +    function GetCharSetWidth: integer; override;
59    end;
60  
61    { TFB25Array }
# Line 121 | Line 123 | begin
123        if FetchNext then
124        begin
125          FCharSetID := Data[0].AsInteger;
126 +        FCharSetWidth := 1;
127          with (aAttachment as TFB25Attachment) do
128          if (FCharSetID > 1) and HasDefaultCharSet then
129          begin
# Line 131 | Line 134 | begin
134          begin
135            FCodePage := CP_NONE;
136            FAttachment.CharSetID2CodePage(FCharSetID,FCodePage);
137 +          FAttachment.CharSetWidth(FCharSetID,FCharSetWidth);
138          end;
139        end;
140      end;
# Line 154 | Line 158 | begin
158    Result := FCodePage;
159   end;
160  
161 + function TFB25ArrayMetaData.GetCharSetWidth: integer;
162 + begin
163 +  Result := FCharSetWidth;
164 + end;
165 +
166   { TFB25Array }
167  
168   procedure TFB25Array.InternalGetSlice;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines