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下查看源碼就改了，不知從什么版本改成這樣的。