Página sobre a Linguagem
de programação da Embarcadero

Usando a classe TDictionary

Como utilizar TDictionary para armazenar pares de chave-valor

26-03-2015

O Delphi possui uma classe de objetos muito útil chamada TDictionary. Ela foi introduzida na versão 2009 e está definida na unit Generics.Collections. O objetivo é representar conjuntos de chaves (" keys") e valores. É semelhante a um array (uma matriz, um vetor) ou ainda a uma TValueList, com a diferença de que você não precisa usar sempre um tipo de dado especifico para seus membros - diferentemente, por exemplo, de um array onde, obrigatoriamente, a "chave" (o índice do array) deve ser numérico e os valores podem ser de qualquer tipo previamente definido.

TDictionary é uma estrutura de dados definida como uma matriz associativa, conhecida como "hash table" (ou "hash map"). Isso significa que os dados são organizados com base em um "código" hash da chave.  Quando um novo par chave-valor é adicionado a TDictionary, um hash é criado e adicionado junto ao par. Isso torna a estrutura otimizada para buscas, reduzindo o tempo de resposta.

O método construtor de TDictionary é dado por:

  TDictionary<TKey, TValue>.Create;

   onde valores de TKey e TValue podem ser de qualquer tipo.

Como usar o TDictionary

Por questões de simplicidade, o exemplo a seguir utiliza Integer para TKey e Char para TValue:

(...)

var

  D: TDictionary<integer, char>;

  SortKeys : TList<integer>;

  i, ran: integer;

  c : char;

begin

  Memo1.Lines.Clear;

  Memo1.Lines.Text := 'Usando TDictionary';

  Randomize;

  D:= TDictionary<integer, char>.Create;

  try

    // Adiciona alguns pares de chave/valor;

    //os inteiros são gerados aleatoriamente e armazenados como valores ASCII em TValue, começando a partir da letra "A" (ASCII 65)

    for i := 1 to 20 do

    begin

      ran := Random(30);

      if NOT D.ContainsKey(ran) then D.Add(ran, Char(65 + ran));

    end;

(...)

    //Remove pares

    for i := 1 to 20 do

    begin

      ran:= Random(30);

      D.Remove(ran);

    end;

(...)

    //Lista os elementos buscando pela chave

    Memo1.Lines.Add('Elementos:  ');

    for i in D.Keys do

      Memo1.Lines.Add(Format('%d, %s', [i, D.Items[i]]));

    //Procura especificamente a existência da chave 80 e,
    //se encontrar, exibe seu valor na variável "c"

    if D.TryGetValue(80, c) then

      Memo1.Lines.Add(Format('Encontrado: , valor: %s', [c]))

    else

      Memo1.Lines.Add( 'Valor não encontrado');

    //Ordena de modo crescente as chaves usando uma lista  

    SortKeys := TList.Create(D.Keys);

    try

      SortKeys.Sort;  { o padrão do método Sort() é crescente }

      for i in SortKeys do

        Memo1.Lines.Add(Format('%d, %s', [i, D.Items[i]]));

    finally

      SortKeys.Free;

    end;

  finally

    D.Free;

  end;

end;

Observe os métodos usados acima. Para localizar uma determinada chave, usamos ContainsKey(); para remover um determinado par, usamos Remove(); para sabermos de um par chave-valor já existe em TDictionary, usamos TryGetValue().

Para ordenar valores, não conseguimos fazer isso na própria classe TDictionary, por isso foi usado uma coleção da classe Generics TList. TList possui o método Sort() para isso.

Fonte: delphi.about.com