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

rec*_*ace 5 delphi delphi-2010

我想有一个函数,它采用字符串字典,变量数组.所以它可以用:

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

我目前正在实现这个目标

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

其中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;
Run Code Online (Sandbox Code Playgroud)

我想做的是:

searchDictionary.Add('BIN_NAME', ['X01%', '%D01']);
Run Code Online (Sandbox Code Playgroud)

代替:

searchDictionary.Add('BIN_NAME', TSearch.Values(['X01%', '%D01']));
Run Code Online (Sandbox Code Playgroud)

任何帮助将不胜感激.

Uwe*_*abe 9

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

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