DBGrid-ClientDataSet problema con Bookmark

[[Al González]]

Este "problema" con las marcas de un TClientDataSet ocurre desde versiones anteriores de Delphi (y quizá siempre ha estado).

He analizado el asunto en un par de ocasiones. Tras una llamada al método TCustomClientDataSet.InternalPost (llamado por el método TDataSet.Post), algo pasa en el interior del objeto interno DataSnap representado por la interfaz DSCursor del conjunto de datos cliente, que luego, cuando dicha interfaz es consultada en el interior del método TCustomClientDataSet.BookmarkValid, responde con un valor que posiblemente es equivocado.

En seguida ilustro un poco lo anterior con el código fuente de ambos métodos (Delphi 7).

Si ocurre la llamada que está subrayada en este método:

Código Delphi [-]
procedure TCustomClientDataSet.InternalPost;
begin
  inherited;
  if State = dsEdit then
    Check(FDSCursor.ModifyRecord(ActiveBuffer)) else
    Check(FDSCursor.InsertRecord(ActiveBuffer));
  if AggregatesActive then
    DoAggUpdates(State = dsEdit);
end;

Entonces la llamada que está subrayada en este otro devuelve un valor de DBERR_BOF, en lugar de DBERR_NONE:

Código Delphi [-]
function TCustomClientDataSet.BookmarkValid(Bookmark: TBookmark): Boolean;
begin
  Result := FDSCursor <> nil;
  if Result then
  begin
    CursorPosChanged;
    Result := (FDSCursor.MoveToBookmark(Bookmark) = DBERR_NONE) and
      (FDSCursor.GetCurrentRecord(nil) = DBERR_NONE);
  end;
end;

Esto con la marca que fue obtenida del registro antes de guardarlo.

Desconozco que hay detrás de este comportamiento, pero ahora que el código fuente de DataSnap está disponible en lenguaje Delphi, podría resultar interesante revisar qué sucede en el interior de los métodos ModifyRecord y GetCurrentRecord de la interfaz DSCursor. ¿No creen?

Un abrazo válido.

Al González.