edit控件太多,如何全部控制?

Question

我加的控件edit太多,如果我先让他们的text都清空,一个一个的写代码,太麻烦,有没有办法可以全部一次清空?
edit1.text.clean
edit2.text.clean
……
editn.text.clean
可否搞为
edit1-n.text.clean?

Answer 1

for I := 0 to form1.components.count - 1 do
begin
  TEdit(componts[I]).clean;
end;

Answer 2

應該加上一個判斷
for i:=0 to ComponentCount-1 do
begin
  if Components[i] is TEdit then
  TEdit(Components[i]).Clear;
end;

Answer 3

procedure clearAllEdit(Sender:Tcomponent);
var i:integer;
begin
  for i:=0 to Sender.ComponentCount-1 do
    cleanAllEdit(Sender.Components[i]);  if (Sender is Tedit) then
    Tedit(Sender).Text := '' ;
end;你可以这样调用 clearAllEdit(Form1);
然后Form1里面所有的Edit的内容都没了。

Answer 4

var i:integer;
begin
i:=componentcount dowoto 1 do
if components[i] is TEDIT then
 TEDIT(components[i]).Text:='';
end;
end;