|
@@ -4229,7 +4229,7 @@ implementation
|
|
end;
|
|
end;
|
|
|
|
|
|
{ Tarraydef.size may never be called for an open array! }
|
|
{ Tarraydef.size may never be called for an open array! }
|
|
- if highrange=-1 then
|
|
|
|
|
|
+ if (highrange=-1) and (lowrange=0) then
|
|
internalerror(99080501);
|
|
internalerror(99080501);
|
|
if not (ado_IsBitPacked in arrayoptions) then
|
|
if not (ado_IsBitPacked in arrayoptions) then
|
|
cachedelesize:=elesize
|
|
cachedelesize:=elesize
|