摘要: //接上次讨论 //测试代码如下 procedure TForm1.btnRaiseTestClick(Sender: TObject); var lvIntf2: ITest; lvVIList: TVIList; begin lvVIList := TVIList.Create(false); //不使用List管理接口对象生命周期 try //+1 lvVIList.Add('a... 阅读全文
posted @ 2011-04-28 10:38 D10.天地弦 阅读(210) 评论(0) 推荐(0)