EAssertionFailed after delink and link of MasterSource

[norwegen60]

Dear all,

I have a TUniQuery linked via

Code: Select all

Detailfields = 'ID'
Masterfields = 'ID'
Mastersource = Table1

If I want to insert a new record I first delink the mastersource (see following code segment)

Code: Select all

procedure TForm1.dbtaSerNrBeforeInsert(DataSet: TDataSet);
begin
  dbtaSerNr.MasterSource:=nil;
end;

procedure TForm1.dbtaSerNrAfterCancel(DataSet: TDataSet);
begin
  dbtaSerNr.MasterSource:=dbdsSerNr_Lu1;
end;

procedure TForm1.dbtaSerNrAfterPost(DataSet: TDataSet);
begin
  dbtaSerNr.MasterSource:=dbdsSerNr_Lu1;
end;

procedure TForm1.dbtaSerNrAfterInsert(DataSet: TDataSet);
begin
  dbtaSerNr.FieldByName('SerNr').Value:='M05123456';
end;

This delink and link works perfect with post and also, if before "Cancel" I haven't made an entry like simulated above in AfterInsert. When done this entry I get the message.

... exception of class EAssertionFailed. Message 'DisposeBuf failed (D:\Projects\Delphi\Common\Source\MemData.pas, Line 7949)'

Any idea?

best regards
Gerd

[AlexP]

Hello,

I could not reproduce the problem.
Please send a complete small sample to alexp*devart*com to demonstrate it.