自定义动态数组类

BCB自带有动态数组，自定义是为了多一个选择，为某些方便，参考BCB的，目前还很弱，主要针对音频，视频字节缓冲区。

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    DynamicArray <BYTE> ByteBuf;

    ByteBuf.Length = 10;//设置长度
    ByteBuf.Length = 5;//改变长度

    StaticText1->Caption = IntToStr(ByteBuf.Length);//长度显示

    ByteBuf[2] = 6;//数组赋值
    StaticText2->Caption = IntToStr(ByteBuf[2]);//数值显示

    ByteBuf.Length = 0;//删除
    ByteBuf.Length = 0;//再删除测试
}

class TArray
{
   public:

      __fastcall TArray(void);//创建
      __fastcall ~TArray(void);//销毁

      BYTE *Data;//动态数组数据指针，Arr.Data[x]

      DWORD Ptr;//数组指针，Arr.Ptr

      BYTE operator [] (DWORD dwInPtr);//[] 操作，返回数组数据: var = Arr[x];
      void operator = (BYTE byInData); // = 操作，数组赋值(当前默认数组指针) Arr = var;

      __property DWORD Length = {read = dwFLength, write = FSetLength};//长度属性

      void __fastcall Del(void);//删除
      
   private:

      DWORD dwFLength;

      void __fastcall FSetLength(DWORD dwLen);//创建动态数组
};

//---------------------------------------------------------------------------

__fastcall TArray::TArray(void)//创建
{
   Data = 0;//初始动态数组数据指针
   Ptr = 0;//初始数组指针
}

__fastcall TArray::~TArray(void)//销毁
{
  if(Data != 0)
    {
       delete [] Data;
       Data = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TArray::Del(void)//删除
{
  if(Data != 0)
    {
       delete [] Data;
       Data = 0;
    }
}

void __fastcall TArray::FSetLength(DWORD dwLen)//创建动态数组
{
   Del();//先删除，释放
   if(dwLen == 0) return;//长度为0退出
   dwFLength = dwLen;//存储长度
   Data = new BYTE[dwLen];//创建
}

BYTE TArray::operator [] (DWORD dwInPtr)//[] 操作，返回数组数据: var = Arr[x];
{
   return Data[dwInPtr];
}

void TArray::operator = (BYTE byInData)// = 操作，数组赋值(当前默认数组指针) Arr = var;
{
   Data[Ptr] = byInData;
}

//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
   TArray Arr;

   Arr.Length = 10;//设置长度
   Arr.Length = 8;//改变长度
   StaticText1->Caption = IntToStr(Arr.Length);//长度显示

   Arr.Ptr = 2;//设置数组指针
   Arr = 3;//数组赋值
   StaticText2->Caption = IntToStr(Arr[2]);//数值显示

   Arr.Length = 0;//删除
   Arr.Del();//再删除测试
}

void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
   TArray Arr;

   Arr.Length = 10;//设置长度
   Arr.Length = 8;//改变长度
   StaticText1->Caption = IntToStr(Arr.Length);//长度显示

   Arr.Data[3] = 1;//成员数组方式
   StaticText2->Caption = IntToStr(Arr.Data[3]);//数值显示
   *Arr.Data = 2; //指针方式
   StaticText2->Caption = IntToStr(*Arr.Data);//数值显示

   Arr.Length = 0;//删除
   Arr.Del();//再删除测试
}

目前C++不支持 operator [] = （双目）操作，不能实现 Arr[x] = Var 方式操作，有空找找其他实现方式。

注：在 C++Builder 6 调试通过。

经过一段时间试用，有些意义，通过封装C语言的动态数组，减少其维护，提高应用可靠性。遗憾的是不能完全像数组一样使用。在原来基础上，进行了些调整，以下为完整源代码。

头文件：

class CDArray
{
 public:

    __fastcall CDArray(void);//构建
    __fastcall ~CDArray(void);//释放

    BYTE *Data;//动态数组数据，Arr.Buf[i]

    BYTE __fastcall operator [] (DWORD dwInPtr);//[] 操作，返回数组数据: var = Arr[x];

    __property DWORD Length = {read = dwFLength, write = FSetLength};//长度属性
 
 private: 

    bool bIsOpen;
    DWORD dwFLength;//数组长度

    void __fastcall FSetLength(DWORD dwLength);//创建动态数组
    void __fastcall DelArray(void);//删除动态数组
};

实现部分：

__fastcall CDArray::CDArray(void)//构建
{
   Data = 0;
   bIsOpen = false;
}

__fastcall CDArray::~CDArray(void)//销毁
{
   DelArray();//删除动态数组
}

void __fastcall CDArray::DelArray(void)//删除动态数组
{
   if(bIsOpen)
     {
        delete [] Data;
        Data = 0;
        bIsOpen = false;
     }
}

void __fastcall CDArray::FSetLength(DWORD dwLength)//创建动态数组属性
{
   DelArray();//先删除动态数组
   if(dwLength == 0) return;//如果设置长度为0则退出
   dwFLength = dwLength;//保存设置长度给长度属性
   Data = new BYTE[dwLength];//创建
   bIsOpen = true;
}

BYTE __fastcall CDArray::operator [] (DWORD dwInPtr)//[] 操作，返回数组数据: var = Arr[x];
{
   return Data[dwInPtr];
}