链表中的数组如何释放的问题

2010-12-20 10:23:58 175 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用数组模拟链表用数组来模拟链表可以避免内存泄漏而且方便调试。最重要的是效率原因，算法题中的数据大多十万到百万级别，如果用 new的方法很容易超时阅读详情

type

  TArrayByte =Array of Array of Byte;



 //定义数据结构

PTOnLineMeter =^TOnlineMeter;

  TOnLineMeter =packed record

     SocketID :TSocket;

     CommandData :TArrayByte;

end;

//定义一个TList

OnLineMeterList_GPRS

//new一个结构

POnLineMeter :PTOnLineMeter;

New(POnLineMeter);

SetLength(POnLineMeter^.CommandData, sizeof(ArrayTemp)); //ArrayTemp另外定义的TArrayByte变量

Move(ArrayTemp, POnLineMeter^.CommandData, sizeof(ArrayTemp));

OnLineMeterList_GPRS.Add(POnLineMeter);



//释放

  for i :=OnLineMeterList_GPRS.Count -1 downto 0 do

  begin

    if delSocket =PTOnLineMeter(OnLineMeterList_GPRS.Items[i])^.SocketID then

    begin

      //SetLength(PTOnLineMeter(OnLineMeterList_GPRS.Items[i])^.CommandData, 0);

      //PTOnLineMeter(OnLineMeterList_GPRS.Items[i])^.CommandData :=Nil;

      Dispose(PTOnLineMeter(OnLineMeterList_GPRS.Items[i]));

      OnLineMeterList_GPRS.Delete(i);

    end;

  end;