list使用测试

  

{list使用 自定义类}



TMyCl =class

    bb:string;

  end;



procedure TForm1.Button1Click(Sender: TObject);

var

  my:TMyCl;

  mx:TMyCl;

  la:TList;

begin

  my:=TMyCl.Create;

  mx:=TMyCl.Create;

  la:=TList.Create;

  my.bb:='bbsscc';

  mx.bb:='mxbbss';

  ShowMessage(IntToStr(mx.InstanceSize));    {8}

  la.Add(@my);

  ShowMessage(IntToStr(la.Add(@mx)));  {1}

  ShowMessage(TMyCl(la.Items[0]^).bb);  {bbsscc}

  la.Delete(0);

  ShowMessage(TMyCl(la.Items[0]^).bb);  {mxbbss}

  la.Free;

  ShowMessage(mx.bb);             {mxbbss}

  mx.Free;

  my.Free;

end;