DELPHI-如何使用书签浏览数据集中的所有行

书签将您的位置存储在数据集中，执行操作后，您可以返回到原始记录。

 var
   iCount : integer;
   pBookmark : TBookmark;
   pDataSetSource : TDataSet;
begin
   ...
   Screen.Cursor := crHourGlass;
   iCount := 1;
   pBookmark := pDatasetSource.GetBookmark;
   pDatasetSource.DisableControls;
   try

    pDatasetSource.First;
    while not pDatasetSource.Eof do
      begin
        try

          { action with record }

        finally
          inc( iCount );
          pDatasetSource.Next;
        end;

      end;
   finally
    pDatasetSource.GotoBookmark( pBookmark );
    pDatasetSource.EnableControls;

    Screen.Cursor := crDefault;
   end;