http://blog.csdn.net/arbin_he/article/details/6256091

delphi 中判断对象是否具备某一属性

标签： delphicomponentsinteger
2011-03-17 14:06 753人阅读 评论(0) 收藏 举报
 分类：
 

版权声明：本文为博主原创文章，未经博主允许不得转载。

 

[delphi] view plain copy
 
  1.   Uses   TypInfo;     
  2.       
  3.   {$R   *.dfm}     
  4.       
  5.   procedure   TForm1.Button1Click(Sender:   TObject);     
  6.   var     
  7.       I:   Integer;     
  8.   begin     
  9.       for   I   :=   0   to   ComponentCount   -   1   do     
  10.           if   IsPublishedProp(Components[I],   'Caption')   then     
  11.               ListBox1.Items.Add(Components[I].Name);     
  12.   
  13.   end;