我窗口中有很多Edit组件,如何计算里面Edit组件的个数,并把他们写入一个Edits数组,然后Edits[i].Clear; 目的是将全部Edit组件的内容清空。

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var i,j :integer;
    begin
     J:=0;
     For i:=0 to ComponentCount-1 do
      begin
        if (Components[i] is TEdit) then
             inc(j);
      end;
      showmessage(inttostr(j));
      end;
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var i,j :integer;
    begin
     J:=0;
     For i:=0 to ComponentCount-1 do
      begin
        if (Components[i] is TEdit) then
           begin
             inc(j);
          TEdit(Components[i]).text:='';//清空
            end;
      end;
      showmessage(inttostr(j));
      end;
      

  3.   


    procedure Tform_providerinfo.closeedit;  //关闭所有dbedit
    var
    i:integer;
    begin
          for i:=0 to self.ComponentCount-1 do
                begin
                    if (components[i] is Twincontrol) then
                           begin
                           if (components[i] as Twincontrol).Parent=form1 then
                                 begin
                                    if (components[i] is Tedit) then
                                       (components[i] as Tedit).clear;
                                   end;
                            end;
                  end;
      

  4.   

    只可查在form 上的edit
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i, j: Integer;
    begin
      SetLength(Edits, 0);
      j := 0;
      for i := 0 to Form1.ControlCount - 1 do
        if(form1.Controls[i] is TEdit) then
        begin
          if (j >= Length(Edits)) then
          begin
            SetLength(Edits, Length(Edits) + 1);
            Edits[j] :=  TEdit(form1.Controls[i]);
            Inc(j);
          end;
        end;
    end;procedure TForm1.Button2Click(Sender: TObject);
    var
      i: Integer;
    begin
      for i := 0 to Length(Edits) -1 do
        Edits[i].Clear;
    end;
      

  5.   

    drift1981(一包香烟,一把吉他,浪迹天涯!) 就行了
    procedure TForm1.Button1Click(Sender: TObject);
    var i,j :integer;
    begin
     J:=0;
     For i:=0 to ComponentCount-1 do
      begin
        if (Components[i] is TEdit) then
           begin
             inc(j);
          TEdit(Components[i]).text:='';//清空
            end;
      end;
      showmessage(inttostr(j));
      end;
      

  6.   

    procedure Tform_providerinfo.closeedit;  //关闭所有dbedit
    var
    i:integer;
    begin
      for i:=0 to self.ComponentCount-1 do
        begin
        if (components[i] is Twincontrol) then
          begin
          if (components[i] as Twincontrol).Parent=form1 then
            begin
            if (components[i] is Tedit) then
              (components[i] as Tedit).clear;
            end;
          end;
        end;
    end;chinaandys(风流泪,雨含笑) 提倡这样写代码{sorry}
      

  7.   

    procedure TForm1.Button1Click(Sender: TObject);
    var i,j :integer;
    begin
     J:=0;
     For i:=0 to ComponentCount-1 do
      begin
        if (Components[i] is TEdit) then
             inc(j);
      end;
       memo1.Lines..add(inttostr(j));
      end;
      

  8.   

    //接分
    procedure TForm1.Button1Click(Sender: TObject);
    var i,j :integer;
    begin
     J:=0;
     For i:=0 to ComponentCount-1 do
      begin
        if (Components[i] is TEdit) then
           Begin
             inc(j);
             (Components[i] as TEDIT).Text:='';
           End;
      end;
      showmessage(inttostr(j));
      end;
      

  9.   

    J:=0;
     For i:=0 to ComponentCount-1 do
      begin
        if (Components[i] is TEdit) then
           Begin
             inc(j);
             (Components[i] as TEDIT).Text:='';
           End;
      end;
      showmessage(inttostr(j));
      end;