Devart Forums

Code: Select all

procedure TfmOdacAssertionBug.TestClick(Sender: TObject);
begin
  OdacSession.Close;
  OdacSession.UserName := edUsername.Text;
  OdacSession.Password := edPassword.Text;
  OdacSession.Server   := edDatabase.Text;
  OdacSession.Open;
  try
    qrODAC.Open;
    qrODAC.Insert; //Insert aborts in OnNewRecord
  finally
    qrODAC.Close;  //assertion is raised at MemData.pas, line 6333 because ODAC-Library are compiled with assertions
  end;             //second butonpress brings acception (programm needs restart) 
end;

procedure TfmOdacAssertionBug.qrODACOnNewRecord(DataSet: TDataSet);
begin
  // do something (ask user etc.)
  
  SysUtils.Abort; //at some conditions it's necessary to break here
end;