如何保存带有名称的 FireDAC 书签列表？

【问题标题】：how can I keep a list of FireDAC bookmarks with a name?如何保存带有名称的 FireDAC 书签列表？
【发布时间】：2021-07-27 15:08:15
【问题描述】：

我正在使用最后一个 delphi 版本，我想要一个 TStringList 之类的东西（我可以在其中保留一个带有整数 TObject 链接的字符串列表），但我需要一个书签列表而不是整数 TObject。

我尝试过使用泛型

mySL: TList<TBookmark>;

但我只保存了没有描述的书签。我希望能够做类似的事情：

var myBookmark1 := TBookmark(mySL('test1'));
var myBookmark2 := TBookmark(mySL('test2'));

你能帮帮我吗？谢谢你

【问题讨论】：

标签： delphi

【解决方案1】：

Generics 确实是最简单的解决方案，但您应该使用 TDictionary（键值对的集合）而不是 TList（仅值的集合）。这样您就可以为每个书签关联一个键。

var 
  mySL: TDictionary<String, TBookmark>;
  Bookmark: TBookmark;
begin
  ...
  ...
  // Create the Dictionary
  mySL := TDictionary<String, TBookmark>.Create;
  // Store Bookmarks
  mySL.Add('Starting Position', MyQuery.GetBookmark);
  ...
  // Retrieve Bookmarks
  mySL.TryGetValue('Starting Position', Bookmark);
  ...
end

TryGetValue 方法将返回一个布尔值，通知您书签是否已找到（并设置为 Bookmark 变量）或不存在。

【讨论】：