TFDQuery提交TFDMemTable修改的数据

TFDQuery提交TFDMemTable修改的数据

function Save(const tableName: string; delta: TStream; qry: TFDQuery): Boolean;
begin
  qry.Close;
  qry.CachedUpdates := True;
  qry.sql.Clear;
  qry.sql.Text := 'select * from ' + tableName + ' where 1=2';
  qry.LoadFromStream(delta, TFDStorageFormat.sfBinary);
  Result := qry.ApplyUpdates = 0;
end;