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)
任何帮助将不胜感激.
虽然声明字典没有问题,但添加值可能会有些棘手.您可以使用特殊构造来获取所需的变量数组:
var
searchDictionary: TDictionary<string, TArray<variant>>;
begin
searchDictionary.Add('BIN_NAME', TArray<variant>.Create('X01%', '%D01'));
end;
Run Code Online (Sandbox Code Playgroud)