Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ver contenido de un conjunto (https://www.clubdelphi.com/foros/showthread.php?t=30932)

edusus 24-04-2006 12:21:03

ver contenido de un conjunto
 
Hola,
Cómo puedo ver el contenido de un conjunto por ejemplo en un Showmessage(), pero no verlos de uno en uno sino que me aparezcan (si contiene 5 elementos) cada elemento separado del siguiente por una coma?
Gracias por la ayuda

Thales 24-04-2006 16:30:09

No dices el tipo de elementos del conjunto así que por ejemplo, he supuesto que son caracteres. La variable S se supone que contiene al conjunto en cuestión:

Código Delphi [-]
type
  TConjunto = set of Char;
var
  S: TConjunto;
  I: Char;
  Elementos: string;
begin
  Elementos := '';
  for I := Low(Char) to High(Char) do
    if I in S then
    begin
      if Length(Elementos) > 0 then
        Elementos := Elementos + ', ';
      Elementos := Elementos + I;
    end;
  ShowMessage(Elementos);
end;

Un saludo

edusus 24-04-2006 19:16:53

leer conjunto
 
Thales , muchas gracias por tu respuesta.
El código que me mandaste me viene bien para aprender más cosas, pero lo que querría saber es como ver el resultado de un conjunto de enteros que se van seleccionando al azar de un grupo mayor.
Ejemplo: de un conjunto del 1 al 30 se seleccionan 5 al azar. Estos se guardan en un conjunto. ¿Cómo lo veo?
Gracias por tu ayuda.

Thales 24-04-2006 20:49:48

Sigo pensando que el código que te he mandado te sirve como base para hacer lo que quieres.
Intenta hacerlo y pon el código de cómo lo vas haciendo si es que no lo consigues; te ayudaremos en ese caso.

Un saludo


La franja horaria es GMT +2. Ahora son las 08:54:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi