Limpando Edits

Question

ALGUEM COM CODIGO QUE NAO DE ERRO PARA LIMPAR OS EDITS DO FORMULARIO..

UM ABRA�O

[b:0e4c06d166]T�tulo em letras mai�sculas editado conforme as regras de conduta. Evite-as, tanto no t�tulo como no corpo da mensagem, pois equivalem a GRITAR. Evite tamb�m as express�es apelativas.[/b:0e4c06d166]

Macario · Answer

[color=green:7147441e73][quote:7147441e73]Function LimpaComp(Wform : Tform): Boolean;Var  WCount : Integer;Begin  For WCount := 0 to Wform.ComponentCount - 1 do  Begin    If (Wform.Components[WCount] is TDBEdit) Then      TDBEdit(Wform.Components[WCount]).Clear    Else If (Wform.Components[WCount] is TDBComboBox) Then      TDBComboBox(Wform.Components[WCount]).ItemIndex := -1    Else If (Wform.Components[WCount] is TMAskEdit) Then      TMAskEdit(Wform.Components[WCount]).Clear    Else If (WForm.Components[WCount] is TCheckBox) Then      TCheckBox(Wform.Components[WCount]).Checked   := False    Else If (Wform.Components[WCount] is TDBRadioGroup) Then      TDBRadioGroup(Wform.Components[WCount]).ItemIndex := -1    Else If (WForm.Components[WCount] is TEdit) Then      TEdit(Wform.Components[WCount]).Clear    Else If (WForm.Components[WCount] is TMaskEdit) Then      TMaskEdit(Wform.Components[WCount]).Clear;  End;  LimpaComp := True;end;[/quote:7147441e73][/color:7147441e73]esse � um exemplo simples...

Fableso · Answer

utilize edit1.text:=��; ele  colocar� branco no propriedade text da edit ou utilize form1.release  ; ele remover� da mem�ria todos os conteudos que estiverem no form inclusive o form....

Moliva · Answer

Ol�Utilizo a Rotina abaixo em um FormPadr�o. Ela ir� limpar todos os seus Edits, mesmo que vc adicione ou retire algum.for intCont := 0 to ComponentCount - 1 do  if Components[intCont].ClassName = �TEdit� then    TEdit(Components[intCont]).clear;[]sAndr�...

F�rum Limpando Edits #190903