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下查看源码就改了,不知从什么版本改成这样的。

原文地址:https://www.cnblogs.com/kinglandsoft/p/14028487.html