delphi下面的语句bcb怎么写

delphi下面的语句bcb如何写
delphi 下的is 和as 常用于类的转换判断，例如，if Compnents[i] is TEdit then TEdit(Components[i]).Clear 等等



[解决办法]

C/C++ code

if( Compnents[i]->ClassNameIs("TEdit") )   ((TEdit*)Components[0])->Clear();
[解决办法]
C/C++ code
if (Components[i]->InheritsFrom(__classid(TEdit)))    ((TEdit *)Component[i])->Clear();