Прошу прощения, что заранее не уточнил детали, чтобы получть ошибку, достаточно выполнить такой код:
Код:
with TMemTableEh.Create(nil) do begin
CachedUpdates := true;
FieldDefs.Add('Name', ftString, 10, false);
CreateDataSet();
AppendRecord(['123']);
Delete();
ApplyUpdates(-1);
Free();
end;
Либо же если брать ваш пример, то нужно просто удалить ссылку на драйвер у мемтейбла, потому что при его наличии мы не попадаем в процедуру
MergeChangeLog.
Код:
function TCustomMemTableEh.InternalApplyUpdates(AMemTableData: TMemTableDataEh; MaxErrors: Integer): Integer;
begin
Result := 0;
if DataDriver <> nil then
begin
Result := DataDriver.ApplyUpdates(AMemTableData);
end else
FRecordsView.MergeChangeLog;
end;