動的配列を持つ辞書を値型として宣言できますか？

Question

私は文字列、バリアントの配列の辞書を取る関数を持っていると思います。だから、で呼び出すことができます。

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

Tsearchが公開するクラスです私は現在

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

によってこれを実現しています：

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;