| 140 |
|
if (FCharSetID > 1) and (aAttachment as TFB30Attachment).HasDefaultCharSet then |
| 141 |
|
FCharSetID := (aAttachment as TFB30Attachment).CharSetID; |
| 142 |
|
FCodePage := CP_NONE; |
| 143 |
< |
FirebirdClientAPI.CharSetID2CodePage(FCharSetID,FCodePage); |
| 143 |
> |
FAttachment.CharSetID2CodePage(FCharSetID,FCodePage); |
| 144 |
|
if (FArrayDesc.array_desc_dtype in [blr_text,blr_cstring, blr_varying]) and |
| 145 |
|
(FCharSetID = 0) then {This really shouldn't be necessary - but it is :(} |
| 146 |
|
with aAttachment as TFBAttachment do |
| 147 |
|
begin |
| 148 |
< |
if HasDefaultCharSet and FirebirdClientAPI.CharSetWidth(CharSetID,CharWidth) then |
| 148 |
> |
if HasDefaultCharSet and FAttachment.CharSetWidth(CharSetID,CharWidth) then |
| 149 |
|
FArrayDesc.array_desc_length := FArrayDesc.array_desc_length * CharWidth; |
| 150 |
|
end; |
| 151 |
|
repeat |
