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

Comparing ibx/trunk/fbintf/client/3.0/FB30Array.pas (file contents):
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC vs.
Revision 309 by tony, Tue Jul 21 08:00:42 2020 UTC

# Line 61 | Line 61 | type
61    TFB30ArrayMetaData = class(TFBArrayMetaData,IArrayMetaData)
62    private
63      FCodePage: TSystemCodePage;
64 +    FCharSetWidth: integer;
65    protected
66      procedure LoadMetaData(aAttachment: IAttachment; aTransaction: ITransaction;
67                     relationName, columnName: AnsiString); override;
68    public
69      function GetCharSetID: cardinal; override;
70      function GetCodePage: TSystemCodePage; override;
71 +    function GetCharSetWidth: integer; override;
72    end;
73  
74    { TFB30Array }
# Line 155 | Line 157 | begin
157          FCharSetID := (aAttachment as TFB30Attachment).CharSetID;
158        FCodePage := CP_NONE;
159        FAttachment.CharSetID2CodePage(FCharSetID,FCodePage);
160 +      FCharSetWidth := 1;
161 +      FAttachment.CharSetWidth(FCharSetID,FCharSetWidth);
162        if (FArrayDesc.array_desc_dtype in [blr_text,blr_cstring, blr_varying]) and
163          (FCharSetID = 0) then {This really shouldn't be necessary - but it is :(}
164        with aAttachment as TFBAttachment do
# Line 183 | Line 187 | begin
187    Result := FCodePage;
188   end;
189  
190 + function TFB30ArrayMetaData.GetCharSetWidth: integer;
191 + begin
192 +  Result := FCharSetWidth;
193 + end;
194 +
195   { TFB30Array }
196  
197   procedure TFB30Array.AllocateBuffer;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines