请教

Question

我想把当前窗体的所有edit控件的text属性设为'',也就是为空,有什么好的办法本来用最简单的edit1.text:='',但这样太没水平了

Answer 1

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

Answer 2

参考,但是你的edit的名字必须有规律或者一个一个去遍历var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do
begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      text :='';
    end;
  end;
end;