2012 年 5月 17 日随笔档案 - ftwsnow

2012年5月17日

摘要： {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); ShowMess... 阅读全文

posted @ 2012-05-17 10:29 ftwsnow 阅读(147) 评论(0) 推荐(0)