|
@@ -2605,7 +2605,7 @@ implementation
|
|
|
end;
|
|
|
|
|
|
if (ado_IsBitPacked in arrayoptions) then
|
|
|
- size:=align(cachedelesize * cachedelecount,alignment) div 8
|
|
|
+ size:=align(cachedelesize * cachedelecount,alignment*8) div 8
|
|
|
else
|
|
|
result:=cachedelesize*cachedelecount;
|
|
|
end;
|