Limpa Campos

[Turbo]

essa é muito boa, uma grande função pra colocar em uma dll, e parar d ter q digitar 1 a 1, q cansa para k.....

procedure LimpaCampos(XForm : TForm);

var

i: integer;

begin

for i := 0 to XForm.ComponentCount - 1 do begin

if XForm.Components is TEdit then

TEdit(XForm.Components).Text := '';

if XForm.Components is TMemo then

TMemo(XForm.Components).Text := '';

if XForm.Components is TMaskEdit then

TMaskEdit(XForm.Components).Text := '';

if XForm.Components is TCheckBox then

TCheckbox(XForm.Components).Checked := false;

if XForm.Components is TDBLookupComboBox then

TDBLookupComboBox(XForm.Components).KeyValue := '';

if XForm.Components is TRadioButton then

TRadioButton(Xform.Components).checked := false;

if XForm.Components is TDBRadioGroup then

TDBRadioGroup(XForm.Components).ItemIndex := -1;

if XForm.Components is TComboBox then begin

TComboBox(XForm.Components).ItemIndex := -1;

TComboBox(XForm.Components).text := '';

end;

end;

end;

[]´s