Fórum validar campos edits e maskedits #593005

function ValidaCampos(form: TCustomForm; tg: Integer): Boolean;
var
  i: Integer;
  MSG: string;
  Foco: Boolean;
  Lista: TList;
begin
  Result := False;
  Foco := False;
  MSG := EmptyStr;

  Lista := TList.Create;
  try
    form.GetTabOrderList(Lista);

    for i := 0 to Lista.Count - 1 do
    begin
      if TControl(Lista[i]) is TMaskEdit then
        if (TMaskEdit(Lista[i]).Tag = tg) and (Trim(TMaskEdit(Lista[i]).Text) = EmptyStr) then
        begin
          MSG := MSG + #13 + ''-  '' + TMaskEdit(Lista[i]).ImeName;

          if Foco = False then
          begin
            TMaskEdit(Lista[i]).SetFocus;
            Foco := True;
          end;
        end;

      if TControl(Lista[i]) is TEdit then
        if (TEdit(Lista[i]).Tag = tg) and (Trim(TEdit(Lista[i]).Text) = EmptyStr) then
        begin
          MSG := MSG + #13 + ''-  '' + TEdit(Lista[i]).ImeName;

          if Foco = False then
          begin
            TEdit(Lista[i]).SetFocus;
            Foco := True;
          end;
        end;
    end;

    if MSG <> EmptyStr then
    Begin
      MessageDlg(''Campo(s) obrigatório(s):'' + #13 + #13 + Trim(MSG), mtError, [mbOk], 0);
      Result := False;
    End
    else
      Result := True;
  finally
    FreeAndNil(Lista);
  end;
end;

if not ValidaCampos(Self, 0) then
    Exit;

// Coloque aqui o código para cadastrar o aluno.