limpar textbox no 2005

Question

como fa�o para limpar todos os componentes editaveis do formnuma aplica��o windows forms.[ ]�sPaulo....

Paulo Bonfim · Answer

up[ ]�sPaulo....

Bon Jovi · Answer

Exemplo em C#. D� pra vc pegar a id�ia e converter a sintaxe pra pascal.

  private void Varre(Control ControleRaiz)
  {
   foreach (Control Controle in ControleRaiz.Controls)
   {
    if (Controle is TextBox)
    {
     (Controle as TextBox).Clear();
    }
    else if (Controle is RichTextBox)
    {
     (Controle as RichTextBox).Clear();
    }
    //else if outros...
    
    Varre(Controle);
   }
  }

  private void button1_Click(object sender, System.EventArgs e)
  {
   Varre(this);
  }

Bon Jovi · Answer

Melhorado:[code:1:aeab125843]  private void Varre(Control ControleRaiz)  {   foreach (Control Controle in ControleRaiz.Controls)   {    if (Controle is TextBoxBase)    {     (Controle as TextBoxBase).Clear();    }        Varre(Controle);   }  }  private void button1_Click(object sender, System.EventArgs e)  {   Varre(this);  }[/code:1:aeab125843]...

Paulo Bonfim · Answer

[quote:5413a97b99=�Bon Jovi�]Melhorado:[code:1:5413a97b99]  private void Varre(Control ControleRaiz)  {   foreach (Control Controle in ControleRaiz.Controls)   {    if (Controle is TextBoxBase)    {     (Controle as TextBoxBase).Clear();    }        Varre(Controle);   }  }  private void button1_Click(object sender, System.EventArgs e)  {   Varre(this);  }[/code:1:5413a97b99][/quote:5413a97b99]Bon jovi lhe agrade�o a tentativa, mas n�o entendo nada de C#j� vi na net exemplos, mas n�o consegui adaptar, pois sou novo em delphi languange .net[ ]�sPaulo...

Wildelphi · Answer

Para Limpar os edits faca o seguinteprocedure frmForm1.LimparEdits;var  i : integer ;begin  components := System.ComponentModel.Container.Create;  for i := 0 to self.Controls.Count -1 do  begin    if Controls.Item.ClassType.ClassNameIs(�TextBox�) then      (Controls.Item as TextBox).Clear  end;end;...