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;