该死的clear 根本不释放内存，怎么才能释放泛型LIST的内存？

程序的内存一直不停的涨，用其他工具也查了有泄露但是是定位到进程创建的时候，总觉得很奇怪
后来查了资料
delphi的clear对内存是不释放的
因为我的程序在调用的很多 过程冲不断的clear,数据要不断的更新
clear的都是 tstringlist ,还有很多的结构体泛型的list，里面有string类型的，查看内存的时候 发现里面的内存一直不停的增长。问题是这样的
1 对于 tstringlist和泛型list应该怎样清理里面的数据 并且释放内存（释放里面的空间）。但是不需要重新去creat（不是彻底的把它销毁 还是可以使用这个泛型的list的，但是里面是空的，可以继续装数据进去）,而且也不出现读写错误。
查资料的时候 发现 这么一段话

关于TList.Clear释放内存 一直以来被TList.Clear是否会释放每个Item的内存纠结，今天终于找到确切的答案了：不会释放，所以要释放每个Item指向的内存块，还是需要自己老老实实用循环Free掉或者Dispose掉

2、因为的我程序内存不停的涨，而且工具定位出来的位置都是在创建的地方，所以很难真正定位到泄露的位置，而且这些数据是希望程序真正退出之后才完全释放的。(中间有很多 clear add操作)应该怎么写？ 
分数有限，希望能够有人回复，只要解释清楚或者有代码说明就可以。

感谢回复。

Clear 只是清除了项中的内容，其中的对象并没销毁。请看DELPHI的实例：
procedure TForm1.FormButton1Click(Sender: TObject);

type
  PMyList = ^AList;
  AList = record
    I: Integer;
    C: Char;
  end;

var

  MyList: TList;
  ARecord: PMyList;
  B: Byte;
  Y: Word;
begin
  MyList := TList.Create;
  try
    New(ARecord);
    ARecord^.I := 100;
    ARecord^.C := 'Z';
    MyList.Add(ARecord); {Add integer 100 and character Z to list}
    New(ARecord);
    ARecord^.I := 200;
    ARecord^.C := 'X';
    MyList.Add(ARecord); {Add integer 200 and character X to list}

    { Now paint the items onto the paintbox}
    Y := 10;             {Variable used in TextOut function}

    for B := 0 to (MyList.Count - 1) do
    begin
      ARecord := MyList.Items[B];
      Canvas.TextOut(10, Y, IntToStr(ARecord^.I)); {Display I}
      Y := Y + 30;  {Increment Y Value again}
      Canvas.TextOut(10, Y, ARecord^.C);  {Display C}
      Y := Y + 30;  {Increment Y Value}
    end;

    { Cleanup: must free the list items as well as the list }
   for B := 0 to (MyList.Count - 1) do
   begin

     ARecord := MyList.Items[B];
     Dispose(ARecord);
   end;
  finally
    MyList.Free;
  end;
end;

跟进源码里看看就知道了啊
tstringlist从strings继承，strings 是个抽象类，clear是它的抽象方法，由其子类来负责实现clear，你可以自己覆盖clear，在其中做释放内存的工作，但顾名思义tstringlist只是string的容器，string和intert、double...这些简单类型一样，都是由系统维护它们的引用记录来自动管理其生命周期的，不用人为干预。

tlist的clear是个虚函数。
procedure TList.Clear;
begin   // 基类实现中没有且也不应该负责清理item分配的内存
  SetCount(0); 
  SetCapacity(0);
end;

你应该在其析构函数中处理item的内存清理工作，如果你要clear时也清理内存，就上面说的自己重写覆盖clear函数，在里面做清理。

我一般这样子释放：

  for m := 0 to ls.Count - 1 do 
     Dispose(PExit(ls[m]));

  ls.Clear();
  ls.Free();

如果List里面是指针的话，需要单独释放每个item内容，然后再clear

PExit是自己定义的么。我没找到这个函数的过程。
还有 Dispose 需要指针类型的，直接给结构体导致编译不通过
间接赋值再释放导致出现数据访问错误的问题。。

 begin

     ARecord := MyList.Items[B];
     Dispose(ARecord);-----这里编译器提示 ARecord不是指针类型。delphi 2010的
   end;
  finally
    MyList.Free;
  end;
end; 

弄个简单的重写Tlist.Clear满足你需求的例子（非泛型，当然泛型更是方便了）
另外俺不是撸大师，请教俺撸同学，要保证鲁棒性必须清晰把握对象的生命周期

unit  Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  // 继承Tlist并重写Clear方法
  TMyList =  class (TList)
  public
    procedure  Clear; override;
  end ;
  // 自定义个类型做为item，测试用
  TMyClass =  class (TInterfacedObject)
  public
    FMeb:  Integer ;
  end ;

  TForm1 =  class (TForm)
    btn1: TButton;
    procedure  btn1Click(Sender: TObject);
    procedure  FormDestroy(Sender: TObject);
    procedure  FormCreate(Sender: TObject);
  private
  public
  end ;

var
  Form1: TForm1;

implementation

{ $R  *.dfm}

var
  li: TMyList;

procedure  TForm1 . btn1Click(Sender: TObject);
var
  m: TMyClass;
const
{ $J +} count:  Integer  =  0 ; { $J -}
begin
  m := TMyClass . Create;
  Inc(count,  1000 );
  m . FMeb := count;
  li . Add(m);
  // 可以观察到li.count是否正常，且item内容是否正确访问到
  Caption := Format( 'li.count=%d; li.items[li.count-1]=%d' , [li . Count, TMyClass(li . Items[li . Count -  1 ]).FMeb]);
  //li.Clear; 销毁list所有item, 可去掉注释猛击按钮观察count的值始终为1，且也没有泄露内存
end ;

{ TMyList }

procedure  TMyList . Clear;
var
  I:  Integer ;
begin
  // 倒叙遍历items确保安全访问index
  for  I := Count -  1  downto  0  do
  begin
    // 通过多态销毁item
    // 如果想使用 is、as 操作符，得实现Iinterface接口
    TMyClass(Items[i]).Free;
  end ;
  inherited ;
end ;

procedure  TForm1 . FormCreate(Sender: TObject);
begin
  li := TMyList . Create;
end ;

procedure  TForm1 . FormDestroy(Sender: TObject);
begin
  li . Free;  //销毁list自身，free中会调用析构函数destroy,destroy中调用了clear
end ;

end .

procedure  TForm1 . FormButton1Click(Sender: TObject);

type
  PMyList = ^AList;
  AList =  record
    I:  Integer ;
    C:  Char ;
  end ;

var

  MyList: TList;
  ARecord: PMyList;
  B:  Byte ;
  Y:  Word ;
begin
  MyList := TList . Create;
  try
    New(ARecord);
    ARecord^.I :=  100 ;
    ARecord^.C :=  'Z' ;
    MyList . Add(ARecord);  {Add integer 100 and character Z to list}
    New(ARecord);
    ARecord^.I :=  200 ;
    ARecord^.C :=  'X' ;
    MyList . Add(ARecord);  {Add integer 200 and character X to list}

    { Now paint the items onto the paintbox}
    Y :=  10 ;              {Variable used in TextOut function}

    for  B :=  0  to  (MyList . Count -  1 )  do
    begin
      ARecord := MyList . Items[B];
      Canvas . TextOut( 10 , Y, IntToStr(ARecord^.I));  {Display I}
      Y := Y +  30 ;   {Increment Y Value again}
      Canvas . TextOut( 10 , Y, ARecord^.C);   {Display C}
      Y := Y +  30 ;   {Increment Y Value}
    end ;

    { Cleanup: must free the list items as well as the list }
   for  B :=  0  to  (MyList . Count -  1 )  do
   begin

     ARecord := MyList . Items[B];
     Dispose(ARecord);
   end ;
  finally
    MyList . Free;
  end ;
end ;

你这个代码是一个组件里面 这样写虽然可以完全释放，可是使用时间太短了
我的要求是在窗体创建的时候创建，窗体运行的时候 节约内存空间（free的话导致内存不断上升），不能导致内存泄露，窗体销毁的时候彻底释放空间。你这个创建和销毁只在一个组件里面，这样意义很小。我的目的是如果在调用的过程里面泛型数组动态的增加，又不停的clear（clear不真正的清理空间）的时候 能够真正的清理空间减少程序内存的占用，窗体销毁的时候能够真正的彻底的销毁泛型list，中间不出现没有找到指针这样的提示（应该是释放多次的缘故，有些在创建之后使用它就不会提示，有些创建之后不使用就提示，但是因为使用不使用是在软件里面的一个设置，）
还有鲁过的代码我看不明白。希望鲁过师傅+我关注，我们多聊聊。项目最后快收尾了。这个内存泄露的问题是最后的几个重要问题，对于项目的收尾和验收有重要意义。希望鲁过师傅多多帮助。

我用的是delphi  2010 而且我的 list是泛型的，没有办法那样释放

procedure  TForm1 . FormDestroy(Sender: TObject);
 var   I:  Integer ;  begin   // TForm1销毁时 销毁list
if  Assigned(List)  then
begin
for  I := List . Count -  1  downto  0  do
begin
FreeMemory(list . Items[i]); -------这里提示编译不通过 要求是指针
// FreeAndNil(list); 放到下面
end ;
end ;
FreeAndNil(list);
end ;
这样，即便仅仅create，最后销毁也不会有漏网的

procedure  TForm1 . FormCreate(Sender: TObject);  var   gl, gl2: pGamelist;
 begin   List := TList < pGamelist > .Create;
//gl := GetMemory(SizeOf(TGamelist));
//gl2 := GetMemory(SizeOf(TGamelist));
//gl^.sky := 1000;
//gl2^.sky := 2000;
//List.Add(gl);
// 添加两项
//List.Add(gl2);
 end ;

我采用的方法是 
categroyList.retainAll(categroyList);
categroyList.clear();