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

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

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

原型：

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　　更新时间：