list使用测试

最新推荐文章于 2022-11-07 17:08:32 发布

R芮R

最新推荐文章于 2022-11-07 17:08:32 发布

阅读量169

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/tk-del/archive/2012/05/17/2505846.html

  
{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;