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。

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

Answer 2

处理此问题的最佳方法是使用枚举：

function IsControlOneOf(AControl: TControl; const AControls: array of TControl): Boolean;
var
  lControl: TControl;
begin
  for lControl in AControls do
    if lControl = AControl then
      exit(true);
  result := False;
end;

不幸的是，这是标记为Delphi 7的，因此您没有这些语言功能。所以你必须采用传统方式：

function IsControlOneOf(AControl: TControl; const AControls: array of TControl): Boolean;
var
  i: integer;
begin
  for i := 0 to high(AControls) do
    if AControl = AControls[i] then
    begin
      result := true;
      exit;
    end;
  result := False;
end;

如何处理开放的TControl数组

2 个答案: