请教各位一个巨简单问题

Question

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

Answer 1

var
  i: integer;
begin
  for i := 0 to self.ComponentCount - 1 do
    if components[i] is TEdit then
      (components[i] as TEdit).Text :='';给分

Answer 2

var
  i: integer;
begin
  for i := 0 to self.ComponentCount - 1 do
  begin
    if components[i] is TEdit then
      (components[i] as TEdit).Caption :='';
  end;
end;

Answer 3

另外一种方法：
    for i:=1 to 6 do
    begin
        tedit(findcomponent('edit'+inttostr(i))).Text:='';
    end;

Answer 4

把EDIT的TAG置为1然后在程序中检测到tag=1的就清空这样就可以有目的的清空一部分EDITvar
  i: integer;
begin
  for i := 0 to self.ComponentCount - 1 do
    if components[i] is TEdit then
     IF components[i].tag =1 then
      (components[i] as TEdit).Text :='';分，
我也要
哈哈~