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;










联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678