如何清除一个窗体上所有的Edit.Text的内容

[Linux2001]

[hellion]

利用Components属性，若Form中有其它容器，需要递归

[iBear]

用窗体的Components属性遍历，如果是edit就clear

[fshrq]

for i:=1 to n do
form1.findcomponent('edit'+inttostr(i)) as tedit).text:='';

[stiwin]

find as tedit

[genedna]

var
I : Integer;
begin
for I := 0 to Form1.ComponentCount-1 do
if (Component[I] is TEdit) then
(Component[I] as TEdit).Text := '';
end;

[武稀松]

for i:=0 to (Self.ControlCount-1) do
begin
if Self.Controls[i] is TEdit then
(Self.Controls[i] as TEdit).Text:='';
或
TEdit(Self.Controls[i]).Text:='';
end;

[alec_ma]

对了

[Linux2001]

我的EDit控件是在GroupBox控件中的,我用了以上的方法,没有清空任何一个Edit啊

[hellion]

看看第一个回复，需要递归

[yxjjx]

var i:integer
begin
for i:=0 to groupbox.controlcount-1 do
if groupbox.controls[i] is tedit then
tedit(groupbox.controls[i].text:='';
end;
这样试试吧

[yxjjx]

tedit(groupbox.controls[i]).text:=''
不好意思这里少了一个括号

[yxjjx]

老兄这样对不对？