Czy mogę zadeklarować słownik z dynamiczną tablicą jako typ wartości?

Question

Chciałbym mieć funkcję, która pobiera słownik ciąg, tablicy wariantu. Tak to można nazwać z:

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

Jestem obecnie osiągnięcie tego poprzez

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

gdzie pełnotekstowego jest klasa, która eksponuje:

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; 

Co chciałbym zrobić, to:

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

zamiast:

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

Każda pomoc zostanie bardzo doceniona.

Answer 1

Chociaż deklarowanie słownika nie stanowi problemu, dodanie wartości może nieco skomplikować. Można użyć specjalnego konstrukt, aby uzyskać żądaną tablicę wariantowej:

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

Answer 2

można zadeklarować typ na tablicy wariantu zrobić więcej kodu, jak chcesz:

type 
    TDynamicArrayOfVariant = array of Variant; 

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