procedure setlength(p1,p2,p3,p4);
begin
VarArgStart(VAList);
DynArraySetLength(A, TypeInfo, DimCnt,...PNativeInt(VAList));
end;
procedure DynArraySetLength(A, TypeInfo, DimCnt, PNativeInt(VAList));
begin...:= lengthVec^;
if newLength <= 0 then
if newLength < 0 then
Error(reRangeError);
_DynArrayClear(a, typeInfo...), PDynArrayTypeInfo(typeInfo).name);
elSize := PDynArrayTypeInfo(typeInfo).elSize;
if PDynArrayTypeInfo...(typeInfo).elType nil then
ElTypeInfo := PDynArrayTypeInfo(typeInfo).elType^
ElTypeInfo := nil;
neededSize