Fórum Limpar Todos os Edits de uma Vez #296128

procedure LimpaCampos;

procedure T___fCadastros.limpaCampos;
var
  i : Integer;
begin
  for i := 0 to pgc.Pages[0].ControlCount - 1 do
    if pgc.Pages[0].Controls[i] is TEdit then
      (pgc.Pages[0].Controls[i] as TEdit).Clear
    else
    if pgc.Pages[0].Controls[i] is TComboBox then
      (pgc.Pages[0].Controls[i] as TComboBox).ItemIndex := -1
    else
    if pgc.Pages[0].Controls[i] is TRadioGroup then
      (pgc.Pages[0].Controls[i] as TRadioGroup).ItemIndex := -1
    else
    if pgc.Pages[0].Controls[i] is TCheckBox then
      (pgc.Pages[0].Controls[i] as TCheckBox).Checked := False
    else
    if pgc.Pages[0].Controls[i] is TMaskEdit then
      (pgc.Pages[0].Controls[i] as TMaskEdit).Clear
    else
    if pgc.Pages[0].Controls[i] is TDBLookupComboBox then
      (pgc.Pages[0].Controls[i] as TDBLookupComboBox).KeyValue := null;
end;

pgc.Pages[0]

nome_do_form

procedure LimpaEdits;
var
  i: integer;
begin
  for i := 0 to Self.ControlCount - 1 do
    if (Self.Controls[i] is TEdit) then
      (Controls[i] as TEdit).Text := ´´;
end;