如何处理开放的TControl数组

Question

我有这个不编译的代码:

function IsControlOneOf(AControl: TControl; AControls: array of TControl): Boolean;
begin
  Result := False;
  // if AControls <> nil then // does not compile!
  if Length(AControls) <> 0 then // this compiles
    Result := AControl in AControls; // does not compile!
end;

我可能错误地用开放数组动态数组.
我怎么测试"AControl in AControls"呢？我应该将低(AControls)迭代到高(AControls)并测试匹配,或者什么？

另外,有没有办法为open数组设置默认值？

AControls: array of TControl = []

也不编译.

Answer 1

in运算符与集合一起使用.您无法使用它来测试元素是否存在于打开的数组参数中.实际上,您永远不能用于测试元素是否是任何类型数组的成员.您需要迭代数组并检查每个元素.

预计您无法将打开的数组参数与nil进行比较.请记住,开放式数组与动态数组不同,无论它们的语法有多么相似.

最后,我建议您不要按值传递打开的数组参数.这导致制作阵列的副本,这对于大型阵列来说当然是昂贵的,更不用说不必要了.将open数组参数声明为const.

在您的问题编辑中,您询问默认参数.您无法为打开的数组参数指定默认值.因此,为了获得所需的灵活性,您将不得不使用重载过程.