Размер динамического массива

← →
learner © (2006-09-06 17:22) [0]

Здравствуйте !
Type
TMyArray = array of integer;
TMyDblArray = array of TMyArray;

Как можно узнать "истинный" размер переменной типа TMyDblArray ?
Типа: Length(MyArr)*Length(MyArr[0])*SizeOf(integer) + "еще что-то";

← →
Palladin © (2006-09-06 17:27) [1]

Function GetTMyDblSize(a:TMyDblArray):Integer; Var i:Integer; Begin Result:=0; For i:=0 to Length(a)-1 Do Inc(Result,Length(a[i])*SizeOf(Integer)); Inc(Result,Length(a)*SizeOf(TMyArray)); End;

← →
Джо © (2006-09-06 17:30) [2]

> Как можно узнать "истинный" размер переменной типа TMyDblArray
> ?

"Истинный размер" этой переменной равен SizeOf(Pointer). А вот объем памяти, занимаемый самими данными — Length(MyArr) * SizeOf(Integer) * Length(TMyDblArray) . Плюс служебная информация для самого массива.

← →
learner © (2006-09-06 17:44) [3]

Вот меня и интересует "служебная информация для самого массива".
Хочу воспользоваться CopyMemory без создания цикла

← →
Palladin © (2006-09-06 17:53) [4]

> Хочу воспользоваться CopyMemory без создания цикла

неполучится
каждый элемент TMyDblArray является указателем

← →
learner © (2006-09-06 19:43) [5]

>неполучится
"и это очень прискорбно" (ц). :))

← →
Anatoly Podgoretsky © (2006-09-06 20:31) [6]

Джо © (06.09.06 17:30) [2]
Неправильно, массив не обязан быть прямоугольным.
Вот у Palladin © (06.09.06 17:27) [1]
правильный ответ.

← →
guav © (2006-09-06 21:10) [7]

> [3] learner ©

Если нужны "настоящие" многомерные динамические массивы, т.е. динамические по всем размерам и с элементами, лежащими подряд, используй Variant Arrays, см. VarArrayCreate

фух... :)

в случае n-мерноугольного массива

Type ExDimDimOutOfARange=Class(Exception); ExDimOutOfARange=Class(Exception); TxDPoint=Array of Cardinal; TxDIntArray=Class Private m_nShift:Cardinal; m_aData:Array of Integer; m_aDims:TxDPoint; m_nSize:Cardinal; m_bNoRangeCheck:Boolean; Function lcGetItem(Const p_axDPoint:TxDPoint):Integer; Procedure lcSetItem(Const p_axDPoint:TxDPoint;p_nValue:Integer); Procedure lcCalcShift(Const p_axDPoint:TxDPoint); Function lcGetPointer:Pointer; Public Constructor Create(Const p_axDims:TxDPoint); Constructor CreateFrom(p_theOtherArray:TxDIntArray); Destructor Destroy; Override; Property Item[Const axDPoint:TxDPoint]:Integer Read lcGetItem Write lcSetItem; Default; Property NoRangeCheck:Boolean Read m_bNoRangeCheck Write m_bNoRangeCheck; Property Memory:Pointer Read lcGetPointer; Property Size:Cardinal Read m_nSize; Property Dims:TxDPoint Read m_aDims; Class Function xDPoint(xDP:Array of Cardinal):TxDPoint; Overload; Class Procedure xDPoint(xDP:Array of Cardinal;Var vxDP:TxDPoint); Overload; End; Destructor TxDIntArray.Destroy; Begin m_aDims:=Nil; m_aData:=Nil; End; Function TxDIntArray.lcGetItem; Begin lcCalcShift(p_axDPoint); Result:=m_aData[m_nShift]; End; Procedure TxDIntArray.lcSetItem; Begin lcCalcShift(p_axDPoint); m_aData[m_nShift]:=p_nValue; End; Procedure TxDIntArray.lcCalcShift; Var i:Integer; Begin If Not m_bNoRangeCheck Then Begin If Length(m_aDims)<>Length(p_axDPoint) Then Raise ExDimDimOutOfARange.Create(IntToStr(Length(p_axDPoint))+","+IntToStr(Length(m_aDims))); For i:=0 to Length(m_aDims)-1 Do If m_aDims[i]<=p_axDPoint[i] Then Raise ExDimOutOfARange.Create("Dimension "+IntToStr(i)+", Size="+IntToStr(m_aDims[i])+", Request="+IntToStr(p_axDPoint[i])); End; m_nShift:=0; For i:=0 to Length(p_axDPoint)-1 Do m_nShift:=m_nShift+m_aDims[i]*p_axDPoint[i]; End; Function TxDIntArray.lcGetPointer; Begin If m_nSize=0 Then Result:=Nil Else Result:=@m_aData[0]; End; Constructor TxDIntArray.Create; Begin m_bNoRangeCheck:=True; If Length(p_axDims)=0 Then Begin m_nSize:=0; m_aData:=Nil; m_aDims:=Nil; End Else Begin SetLength(m_aDims,Length(p_axDims)); Move(p_axDims[0],m_aDims[0],Length(p_axDims)*SizeOf(Cardinal)); lcCalcShift(p_axDims); SetLength(m_aData,m_nShift); m_nSize:=m_nShift; End; End; Constructor TxDIntArray.CreateFrom; Begin m_bNoRangeCheck:=True; If p_theOtherArray.Size=0 Then Begin m_nSize:=0; m_aData:=Nil; m_aDims:=Nil; End Else Begin m_nSize:=p_theOtherArray.Size; SetLength(m_aData,m_nSize); Move(p_theOtherArray.Memory^,m_aData[0],m_nSize); SetLength(m_aDims,Length(p_theOtherArray.Dims)); Move(p_theOtherArray.Dims[0],m_aDims[0],Length(m_aDims)*SizeOf(Cardinal)); End; End; Class Function TxDIntArray.xDPoint(xDP:Array of Cardinal):TxDPoint; Begin SetLength(Result,Length(xDP)); Move(xDP[0],Result[0],Length(xDP)); End; Class Procedure TxDIntArray.xDPoint(xDP:Array of Cardinal;Var vxDP:TxDPoint); Begin SetLength(vxDP,Length(xDP)); Move(xDP[0],vxDP[0],Length(xDP)); End;

пример:
Var a,b:TxDIntArray; nxDPoint:TxDPoint; begin TxDIntArray.xDPoint([100,40,5,5,5],nxDPoint); a:=TxDIntArray.Create(nxDPoint); a[a.xDPoint([1,5,2,1,1])]:=500; ShowMessage("a[1,5,2,1,1] = "+IntToStr(a[a.xDPoint([1,5,2,1,1])])); b:=TxDIntArray.CreateFrom(a); a[a.xDPoint([1,5,2,1,1])]:=501; ShowMessage("b[1,5,2,1,1] = "+IntToStr(b[a.xDPoint([1,5,2,1,1])])+" a[1,5,2,1,1] = "+IntToStr(a[a.xDPoint([1,5,2,1,1])]) ); a.Free; b.Free; end;

>Palladin © (06.09.06 22:37) [8]
Спасибо за "фух... " :))
Оказывается, для некоторых, верно утверждение:
"Если нельзя, но очень хочется, то - можно" :))

Размер динамического массива Найти похожие ветки