请大家看看这个编历。里面有些小问题我不明白,送分

Question

根据组件的类名判断是否TEdit组件，如是则将修改其Text值。

Answer 1

form//你要指出其parent是谁，如果你是点击窗体的话，这个是对的；
begin
  for I := 0 to ComponentCount - 1 do
  begin
    S := Components[I].ClassName;//取得当前控件的类；以T打头
    if S = 'TEdit' then
      TEdit(Components[I]).Text := ''//(Components[I])是控件数组中的一个控件；
 else
    if S = 'TComboBox' then
      TCombobox(Components[I]).ItemIndex := -1;
  end;
end;========
现在还有吗？

Answer 2

S := Components[I].ClassName是得到组件Components[I]的类名称
TEdit(Components[I]).Text是把Components[I]组件转换成Tedit类,然后得到它的text属性值!

Answer 3

遍历窗口控件呀。components[i]的意思就是指控件呀

Answer 4

S := Components[I].ClassName 它的意思是：把Components[i]的 类名赋给 s
 如果 是TEdit类 就把该组件(Edit)的Text赋空值

Answer 5

S := Components[I].ClassName是得到组件Components[I]的类名称
TEdit(Components[I]).Text是把Components[I]组件转换成Tedit类,然后得到它的text属性值!

Answer 6

S := Components[I].ClassName是得到组件Components[I]的类名称
TEdit(Components[I]).Text是把Components[I]组件转换成Tedit类,然后得到它的text属性值!

Answer 7

不好意思,说错了,TEdit(Components[I]).Text那句是给edit控件赋空值,感谢
 bobit(迎着风)的提醒!

Answer 8

遍历当前窗体的所有控件，判断控件所属的类，如果是TEdit就置空值，如果是TComboBox就置为第一个选项