FreeBookmark可以扔掉了！

 

 群友青春贴的图，一看就明白了，在使用TDataSet的Bookmark时，不用再去释放取得的Bookmark。原来的版本一般这样写：

procedure TForm4.FormCreate(Sender: TObject);
var
  bm:TBookmark;

begin
  bm:=kbmMemTable1.GetBookmark;
  try
       kbmMemTable1.GotoBookmark(bm);
  finally
       kbmMemTable1.FreeBookmark(bm);
  end;
end;

现在好了，可以这样写：

procedure TForm4.FormCreate(Sender: TObject);
var
  bm:TBookmark;
begin
  bm:=kbmMemTable1.GetBookmark;
//这里是实现的代码
  kbmMemTable1.GotoBookmark(bm);

end;

delphi 10.3.3下查看源码就改了，不知从什么版本改成这样的。