limpar textbox no 2005

Delphi

26/10/2005

como faço para limpar todos os componentes editaveis do form

numa aplicação windows forms.

[ ]´s
Paulo.


Paulo Bonfim

Paulo Bonfim

Curtidas 0

Respostas

Paulo Bonfim

Paulo Bonfim

26/10/2005

up

[ ]´s
Paulo.


GOSTEI 0
Bon Jovi

Bon Jovi

26/10/2005

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);
  }



GOSTEI 0
Bon Jovi

Bon Jovi

26/10/2005

Melhorado:
  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);
  }



GOSTEI 0
Paulo Bonfim

Paulo Bonfim

26/10/2005

[quote:5413a97b99=´Bon Jovi´]Melhorado:
  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);
  }
[/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

[ ]´s
Paulo


GOSTEI 0
Wildelphi

Wildelphi

26/10/2005

Para Limpar os edits faca o seguinte

procedure frmForm1.LimparEdits;
var
i : integer ;
begin
components := System.ComponentModel.Container.Create;
for i := 0 to self.Controls.Count -1 do
begin
if Controls.Item[i].ClassType.ClassNameIs(´TextBox´) then
(Controls.Item[i] as TextBox).Clear
end;
end;


GOSTEI 0
POSTAR