Conjuntos (set)

Question

Gostaria de saber se �lguem sabe como fazer uma vari�vel tipo String receber um determinado valor de um conjunto. Segue o c�digo abaixo para melhor entendimento.[b:bdeb4f9030]Var[/b:bdeb4f9030]  x: [c...

Beppe · Answer

Como voc� quer que apare�a na string? N�o tem typecast, mas � s� escrever uma fun��o.

type
  TByteSet = set of Byte;

function ByteSetToString(const Bits: TByteSet): String;
var
  I: Integer;
begin
  with TStringStream.Create() do
  try
    WriteString(�[�);
    I := 0;
    repeat
      while (I <= 255) and not (I in Bits) do 
        Inc(I);
      if I > 255 then Exit;

      if Size > 1 then
        WriteString(�, �);

      WriteString(IntToStr(I));
      if (I < 255) and (Succ(I) in Bits) then
      begin
        WriteString(IntToStr(I));
        while (I <= 255) and (I in Bits) do 
          Inc(I);
        WriteString(IntToStr(Pred(I)));
      end;
    until False;
    WriteString(�]�);
  finally
    Result := DataString;
    Free;
  end;
end;

N�o testei, fiz agora. Ent�o diz se funcionar, ok?

Aroldo Zanela · Answer

Colega,Se eu entendi o que voc� quer, ent�o � melhor utilizar um Array ao inv�s de conjunto.[code:1:737c7ed4e2]Var X: array&#91;0..5&93; of Integer;  A: String;begin  X&91;1&93;  := 255;  A     := intToStr(x&91;1&93;);  ShowMessage(A); // Retorna 255end;[/code:1:737c7ed4e2]...

Cirolaman · Answer

Beppe. Valeu. Mas n�o funcionou, quando rodo a aplica��o da pau e trava.Cirolaman....

Beppe · Answer

Putz, foi um errinho de l�gica, o que que um Inc faltando n�o atrapalha :oops:

type
  TByteSet = set of Byte;

function ByteSetToString(const Bits: TByteSet): String;
var
  I: Integer;
begin
  with TStringStream.Create(��) do
  try
    WriteString(�[�);
    I := 0;
    repeat
      while (I <= 255) and not (I in Bits) do
        Inc(I);
      if I > 255 then Break;

      if Size > 1 then
        WriteString(�, �);

      WriteString(IntToStr(I));
      if (I < 255) and (Succ(I) in Bits) then
      begin
        WriteString(�..�);
        while (I <= 255) and (I in Bits) do
          Inc(I);
        WriteString(IntToStr(Pred(I)));
      end else
        Inc(I);
    until False;
    WriteString(�]�);
  finally
    Result := DataString;
    Free;
  end;
end;

Caption := ByteSetToString([0, 3..8, 10..12, 14]);

F�rum Conjuntos (set) #209245