用什么方法可以一次清空一个Form里面所有的域

[bingor]

比如我的一个Form里面有很多的TEdit和一些TCombobox.如何在一个click事件中一次把所有的输入内容清空呢？
　望指教

[kingfish]

遍历一遍窗口上控件，如果是Edit或ComboBox就清空

[kingfish]

void __fastcall TForm1::Button3Click(TObject *Sender)
{
for(int i=0;i<Form1->ComponentCount;i++)
{
if(Form1->Controls[i]->ClassNameIs("TComboBox"))
{
TComboBox *cb = dynamic_cast<TComboBox*>(Form1->Controls[i]);
cb->Items->Clear();
cb->ItemIndex = -1;
}
if(Form1->Controls[i]->ClassNameIs("TEdit"))
{
TEdit *et = dynamic_cast<TEdit*>(Form1->Controls[i]);
et->Text="";
}
}
}

[bingor]

能不能详细说明，谢谢

[bingor]

不好意思没看见上面的。我试试

[bingor]

编译通过，但click时报
Project demo.exe raised exception class ElistError with message 'List index out of bounds(4)'.Process stopped. Use Step or Run to continue.

[keenleung]

把
for(int i=0;i<Form1->ComponentCount;i++)
换成
for(int i=0;i<Form1->ControlCount;i++)
试试

[bingor]

出现问题，没有清值！

[kingfish]

for(int i=0;i<Form1->ComponentCount;i++)
{
if(Form1->Components[i]->ClassNameIs("TComboBox"))
{
TComboBox *cb = dynamic_cast<TComboBox*>(Form1->Controls[i]);
cb->Items->Clear();
cb->ItemIndex = -1;
}
if(Form1->Components[i]->ClassNameIs("TEdit"))
{
TEdit *et = dynamic_cast<TEdit*>(Form1->Controls[i]);
et->Text="";
}
}

[keenleung]

估计你这些控件都是放在容器里的

[kingfish]

for( int i = 0 ;i<ComponentCount ;i++){
AnsiString Type = Components[i]->ClassName() ;
if(Type.AnsiCompareIC("TComboBox")==0){
TComboBox *cb = dynamic_cast<TComboBox *>(Components[i]);
if(cb) cb->Clear();
}
if(Type.AnsiCompareIC("TEdit")==0){
TEdit *ed = dynamic_cast<TEdit *>(Components[i]);
if(ed) ed->Text="";
}
}

[liuxingstar]

for(int i=0;i<this->ComponentCount;i++)//遍历所有控件
{
TEdit *btn=dynamic_cast<TEdit*>(Components[i]);／／判断为TEdit类
btn->Text="";　／／清空

}

[woainihaha]

同意kingfish(八百里秦川@龙城异客)最后一次的代码.

[bingor]

我的组件是在容器里。

谢谢kingfish.还想问一下如果想清stringgrid是不是方法一样呢