Question

delphi中将groupbox中的文本框清空问题！

由于groupbox中有很多文本框，而一个一个的清空太麻烦了，请问有没有什么语句可以一次性清空的，我在网上找到下面的语句说是可以清空文本框内容的，内容如下：

for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit) then
TEdit(Components[i]).Text:='';

试了下也确实可以，但是也把其他groupbox里的内容清空了，所以我想问下如何实现局部的清空，比如我只想清空groupbox2里的内容，groupbox1里的保留。

Answer 1

可以用TGroupBox.Tag属性，比如是0为不清空，是1为清空，然后在外面再加一层循环判断：
var
i,j:integer;
begin
if (Components[j] is TGroupBox) then begin
if TGroupBox(Components[j]).Tag=1 then begin
with TGroupBox(Components[j]) do begin
for i:=0 to ControlCount-1 do
if Controls[i] is TEdit Then
TEdit(Controls[i]).Text:='';
end;
end;
end;
end;
end;