Delphi TDataSet - 书签 GotoBookmark、SetBookmarkStr、GetBookmarkStr、FreeBookmark、GetBookmark、BookmarkAvailable

Delphi TDataSet - 书签 GotoBookmark、SetBookmarkStr、GetBookmarkStr、FreeBookmark、GetBookmark、BookmarkAvailable

功能描述：主要用于在表中快速地定位记录指针，在应用程序中常常要保存记录指针所在的位置，在进行其他处理之后，希望能快速地返回到先前指针所在的位置

原型：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

function TDataSet.BookmarkAvailable: Boolean; begin   if IsUniDirectional then Result := False   else Result := (State in [dsBrowse, dsEdit, dsInsert]) and not IsEmpty     and (GetBookmarkFlag(ActiveBuffer) = bfCurrent); end;   function TDataSet.GetBookmark: TBookmark; begin   if BookmarkAvailable then   begin     GetMem(Result, FBookmarkSize);     GetBookmarkData(ActiveBuffer, Result);   end else     Result := nil; end;   procedure TDataSet.FreeBookmark(Bookmark: TBookmark); begin   FreeMem(Bookmark); end;   function TDataSet.GetBookmarkStr: TBookmarkStr; begin   if BookmarkAvailable then   begin     SetLength(Result, BookmarkSize);     GetBookmarkData(ActiveBuffer, Pointer(Result));   end else     Result := ''; end;   procedure TDataSet.SetBookmarkStr(const Value: TBookmarkStr); begin   GotoBookmark(Pointer(Value)); end;   procedure TDataSet.GotoBookmark(Bookmark: TBookmark); begin   if Bookmark <> nil then   begin     CheckBrowseMode;     DoBeforeScroll;     InternalGotoBookmark(Bookmark);     Resync([rmExact, rmCenter]);     DoAfterScroll;   end; end;

GetBookMark //返回一个TBookMark类型的变量，该变量包含着指向当前记录的指针，
GotoMark  //用于快速地将记录指针定位到具有书签的记录处
FreeBookmark //释放书签

 

 

创建时间：2020.09.03　　更新时间：