delphi - Delphi XE2：在 TAc​​ionManager 对象中迭代动作

Question

我想知道是否有一种方法可以迭代TActionManager中的TActions而无需经典 for i:= 0 to... 但在代码中使用迭代器

for (action in actionManager.actions) do
begin
...
end;

它不起作用。我已经尝试了很多，总是得到相同的结果。

这是不可能的还是我做错了什么？

谢谢！M。

Answer 1

动作管理器提供的枚举器提供类型为 的动作TContainedAction。它由动作管理器类提供，因此您可以直接枚举动作管理器。您的代码尝试迭代ActionManager.Actions，这是不可能的，因为Actions它是一个索引属性。你不能迭代其中之一。

所以你的代码需要看起来像这样：

var
  Action: TContainedAction;
....
for Action in ActionManager do
begin
  ....
end;

如果as要访问在TContainedAction.