A classe TStringList permite acessar chaves e valores como se fosse um dicionário ou hash table. Para isso, cada linha na instância de TStringList deverá contar o seguinte formato:
<chave>=<valor> Use a proprieade Sorted para ordenar as linhas e a propridade Duplicates para evitar linhas duplicadas. Depois, para acessar o valor de uma determinada chave, use a propriedade Values. Exemplo: program HashTableComStringList; {$APPTYPE CONSOLE} uses SysUtils; var lListaUF: TStringList; begin lListaUF := TStringList.Create; lListaUF.Sorted := True; lListaUF.Duplicates := dupIgnore; try lListaUF.Add('AC=Acre'); lListaUF.Add('AM=Amazonas'); lListaUF.Add('PA=Pará'); lListaUF.Add('RR=Roraima'); lListaUF.Add('SP=São Paulo'); WriteLn('A sigla SP é do estado de ', lListaUF.Values['SP']); finally lListaUF.Free; end; WriteLn(Eoln); end. Sds. >From: "Leodinei Bielak" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: delphi-br@yahoogrupos.com.br >Subject: [delphi-br] Hash Table >Date: Fri, 6 Oct 2006 15:04:50 -0300 > >Olá galera, alguém sabe como eu faço pra usar no delphi 7 um Hash Table ou >Dicionário? >Eu gostaria de criar um no formato sigla : estado. >'AC' : 'Acre' >'AM' : 'Amazonas' >Etc. > >Valeu. > > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html