Component 일괄 초기화 In DELPHI

For IDX := 0 To pnlSearch.ControlCount - 1 Do

Begin

If pnlSearch.Controls[IDX].ClassType = TEdit Then TEdit(pnlSearch.Controls[IDX]).Clear;

End;

이렇게 해주면 pnlSearch의 위에 있는 EditBox가 모두 Clear가 된다...

물론 Label, ComboBox 등 모든 Component가 가능하다...

아래는 Form에 있는 Component를 초기화 하는 것이다...

For i := 0 To ComponentCount - 1 Do

Begin

If Components[i].ClassType = TEdit Then

Begin

If TEdit(Components[i]).Tag = 0 Then TEdit(Components[i]).Text := ''

End
Else If (Components[i].ClassType = TComboBox) then

Begin If TComboBox(Components[i]).Tag = 0 Then TComboBox(Components[i]).ItemIndex := 0;

End;
End;

맘에 드는 것을 골라 쓰면 된다...