德尔福XE2 : iterate actions in a TAcionManager object

Question

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

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

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

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

谢谢!米。

Answer 1

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

所以你的代码需要如下所示:

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

如果您想要访问在 TContainedAction 的后代中声明的属性，您可能需要使用 as 进行向上转换。