Como verificar se um DataSet está em modo de Inserção ou Edição?

É necessário estar declarado DB na seção uses,
em versões unicode declare Data.DB.

Esta função retorna verdadeiro se o DataSet informado por parametro
estiver em edição ou inserção.

Abaixo segue o código fonte:

1
2
3
4

function EdicaoOuInsercao(DataSet : TDataSet) : Boolean;
begin
  Result := DataSet.State in dsEditModes;
end;

Exemplo de uso:

1
2
3
4
5
6
7

procedure TForm1.Button1Click(Sender: TObject);
begin
  if EdicaoOuInsercao(QryNotaFiscal) then
    ShowMessage('O Dataset está em edição ou inserção!')
  else
    ShowMessage('O Dataset NÃO está em edição ou inserção!')
end;

Dúvidas ou sugestões, deixe nos comentários do post.