怎么获得一个类的实例个数?如我的FORM上增加了5个BUTTON,我怎么在程序中获知TButton的实例有5个啊? 怎么获得一个类的实例个数?如我的FORM上增加了5个BUTTON,我怎么在程序中获知TButton的实例有5个啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var i,j:integer;beginj:=0;For i:=0 to Componentcount-1 do if Components[i] is TButton then inc(j);ShowMessage('TButton的实例有:'+IntToStr(j)+'个');end; 新人求助!看不来啊~ 网络编程方面的问题 listView相应点击事件!? 想系统的学习一下delphi语言 一个菜鸟的问题 Pchar和String,帮忙解释一下! 如何开发网络数据库系统? 用adotable的locate方法找到记录后,如何使DBGrid的这一条记录高亮显示? 急!!!! 如何解决在一个显示控件中写入大量数据的问题!! 急!急!关于QUERY事件ONSETTEXT校验的问题? 有关基金分析的系统或是控件可以分享? 如何制作类似点击收藏夹后的IE左边出现的收藏夹工具栏?
i,j:integer;
begin
j:=0;
For i:=0 to Componentcount-1 do
if Components[i] is TButton then
inc(j);
ShowMessage('TButton的实例有:'+IntToStr(j)+'个');
end;