请问一下如何使用循环清空窗体上的所有的文本框

Question

rt thanks

Answer 1

判断是否为文本框，然后CLEAR。

Answer 2

var
  i: Integer;
begin
  for i := 1 to self.ControlCount -1 do
  if (Controls[i] is TEdit) then
     TEdit(Controls[i]).Clear;
end;

Answer 3

说一个文本框名称连续的，如:Edit1、Edit2....
for i:=1 to n do
  (From1.FindComponent('Edit'+IntToStr(i)) as TEdit).Clear;

Answer 4

建议用Components 比较好,Controls不能查出Form中属于容器(如PageControl)内的组件.楼上的改用以下处理.var
  i: Integer;
begin
  for i := 1 to self.ComponentCount -1 do
  if (Components[i] is TEdit) then
     TEdit(Components[i]).Clear;
end;TO meiqingsong(阿飛),不好意思,COPY了你的代码?  ^^