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
