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 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 60 by tony, Mon Mar 27 15:21:02 2017 UTC

# Line 122 | Line 122 | begin
122          else
123          begin
124            FCodePage := CP_NONE;
125 <          FirebirdClientAPI.CharSetID2CodePage(FCharSetID,FCodePage);
125 >          FAttachment.CharSetID2CodePage(FCharSetID,FCodePage);
126          end;
127        end;
128      end;
# Line 131 | Line 131 | begin
131        (FCharSetID = 0) then {This really shouldn't be necessary - but it is :(}
132    with aAttachment as TFBAttachment do
133    begin
134 <    if HasDefaultCharSet  and FirebirdClientAPI.CharSetWidth(CharSetID,CharWidth) then
134 >    if HasDefaultCharSet  and FAttachment.CharSetWidth(CharSetID,CharWidth) then
135        FArrayDesc.array_desc_length := FArrayDesc.array_desc_length * CharWidth;
136    end;
137   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines