Limpando Edits

Delphi

27/10/2003

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]


Njunior

Njunior

Curtidas 0

Respostas

Macario

Macario

27/10/2003

[color=green: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;
[/color:7147441e73]

esse é um exemplo simples


GOSTEI 0
Fableso

Fableso

27/10/2003

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.


GOSTEI 0
Moliva

Moliva

27/10/2003

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;



[]s
André


GOSTEI 0
POSTAR