如果获得窗体里所有控件？

Question

比如我在窗体里放了两个 editbox ,关闭窗体的时候要保存它们的属性，应该怎么做呢？注意：要程序自动列举的，因为窗体里控件实在太多了。

Answer 1

for i:=0 self.componentcount-1 do
    if self.componects[i] is TEdit then
        edit1.text:='我是edit';

Answer 2

for i:=0 self.componentcount-1 do
    if self.componects[i] is TEdit then
        edit1.text:='我是ed'

Answer 3

接着：
************:=setf.componects[i].text;
**************

Answer 4

for i:=0 componentcount-1 do
begin
    if componects[i] is TEdit then
        (components[i] as Tedit).text := '   ' ;
    if components[i] is TCombobox then
        (Components[i] as TCombobox).itemindex := 0 ;
......
end;

Answer 5

for i:=0 Self.componentcount-1 do
begin
    if Self.componects[i] is TEdit then
        TEdit(components[i]).text := 'Ok,Here Is Edit  ' ;
    if Self.components[i] is TCombobox then
        TCombobox(Components[i]).itemindex := 0 ;
......
end;