我可以将带有动态数组的字典声明为值类型吗?

Question

我想要一个函数，它接受字符串字典，变体数组。因此，可以使用以下命令调用它：

  searchDictionary := TDictionary<string, array of variant>;
  searchDictionary.Add('KEY_NAME', ['X01%', '%D01']);
  aValue := TDtoClass.Search(searchDictionary)

我目前正在通过以下方式实现这一目标

  searchDictionary := TDictionary<string, TList<variant>>.Create;
  searchDictionary.Add('BIN_NAME', TSearch.Values(['X01%', '%D01']));

其中 Tsearch 是一个公开的类：

class function TSearch.Values(const arguments: array of variant): TList<variant>;
var
list : TList<variant>;
item: variant;
begin
    list := TList<variant>.Create;
    for item in arguments do
    begin
      list.Add(item);
    end;
    Result := list;           
end;

我想做的是：

searchDictionary.Add('BIN_NAME', ['X01%', '%D01']);

而不是：

searchDictionary.Add('BIN_NAME', TSearch.Values(['X01%', '%D01']));

任何帮助将不胜感激。

Answer 1

虽然声明字典没有问题，但添加值可能会变得有些棘手。您可以使用特殊的构造来获取所需的变体数组：

var
  searchDictionary: TDictionary<string, TArray<variant>>;
begin
  searchDictionary.Add('BIN_NAME', TArray<variant>.Create('X01%', '%D01'));
end;

Answer 2

您可以为变量数组声明一个类型，以根据需要执行更多代码：

type
  TDynamicArrayOfVariant = array of Variant;
var
  searchDictionary: TDictionary<string, TDynamicArrayOfVariant>;
begin
  searchDictionary.Add('BIN_NAME', ['X01%', '%D01']);
end;