Set of - Conjunto

Question

eu tenhu o seguinte caso:typeTUniverso = (a, b, c, d, e, f);TConjunto = set of TUniverso;varConj:  TConjunto;begin   Conj := [d, b, f];   if (a in Conj) then      ShowMessage(�a�);   if (b in Conj) th...

Michael · Answer

Ol� colega!As �nicas fun��es de manipula��o de conjuntos que eu conhe�o no Delphi s�o [b:45bde2e4e7]Include [/b:45bde2e4e7]e [b:45bde2e4e7]Exclude[/b:45bde2e4e7], que servem para incluir ou excluir um elemento, respectivamente. � uma sa�da para n�o ter q usar [i:45bde2e4e7]Conjunto := Conjunto + [Elemento].[/i:45bde2e4e7]Mas, sets n�o existem para armazenar grandes quantidades de elementos. Portanto, eu aconselho vc usar uma array - est�tica ou din�mica, dependendo da sua aplica��o - pois a flexibilidade de manipula��o � bem maior.Em arrays vc pode fazer um loop por todos os seus itens.[]�s...

Massuda · Answer

Imagino que na pr�tica o que voc� est� querendo n�o seja mostrar uma mensagem com o nome do item... nesse caso, d� para fazer algo assim...

type
  TUniverso = (a, b, c, d, e, f);
  TConjunto = set of TUniverso;

var
  I: TUniverso;
  Conj:  TConjunto;

begin
  Conj := [d, b, f];

  for I := Low(I) to High(I) do begin
    if I in Conj then begin
      // trata o caso de I estar no conjunto
    end;
  end;
...

Michael · Answer

Boa Massuda!N�o sabia q se podia tratar Sets desta forma. Vivendo e aprendendo... ;-)[]�s...

Night_man · Answer

valeu pela ajuda... mas a enumeracao eu sabia que era possivel percorrer assim...

estou usando ateh o ssuc e o pred tipo

Atual := a;
while (Atual <> d) do
Atual := Succ(Atual)

o problema eh o seguinte... o meu universo tem 200 items....
e nao estava a fim de testar ver se cada um deles esta no conjunto... eh perda de tempo... pois no maximo vao existir uns 5 deles...

logo queria pegar apenas esses 5....

Beppe · Answer

Sets comportam no m�ximo 256 �tems. Caso mais for preciso, tem TBits como alternativa.

Mas se a distribui��o for esparsa, a opera��o que deseja pode ser lenta. H� v�rias estruturas de dados para implementar SETS, entre elas mapa de bits(os sets no Delphi), arrays, listas encadeadas, hashtables, cada um com pontos fortes e fracos. Uma opera��o que for r�pida em uma, pode ser lenta em outra, e vice-versa.

Por isso, verifique se h� a real necessidade de mudar seu c�digo(otimiza��o antecipada � a raiz de todo mal). Duzentos � um universo pequeno, s� ser� problema se a opera��o for repetida v�rias vezes em curto espa�o de tempo.

Se eu quisesse uma itera��o r�pida, usaria um array n�o-ordenado apenas com os �tems inclusos. Se quisesse um teste MEMBRO-DE eficiente, usuria em conjun��o com um mapa de bits. Neste caso, duas estruturas reduntantes seriam usadas, apenas para obter a melhor performance.

F�rum Set of - Conjunto #290678