Posso dichiarare un dizionario con array dinamico come tipo di valore?

Question

Mi piacerebbe avere una funzione che richiede un dizionario di stringa, matrice di varianti. Così può essere chiamato con:

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

Attualmente sto ottenere tale risultato con

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

dove tsearch è una classe che espone:

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; 

Quello che vorrei fare è:

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

invece di:

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

Qualsiasi aiuto sarà molto apprezzato.

Answer 1

Mentre non c'è alcun problema nel dichiarare il dizionario, l'aggiunta di valori potrebbe essere alquanto complicata. È possibile utilizzare un costrutto speciale per ottenere la necessaria matrice variant:

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

Answer 2

È possibile dichiarare un tipo per serie di varianti a fare di più il codice come si desidera:

type 
    TDynamicArrayOfVariant = array of Variant; 

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