PDA

Ver la Versión Completa : Consulta sobre SET's


dieleo
03-01-2007, 16:43:05
Hola a todos.

Tengo una consulta, si alguien sabe contestarla por favor me ayude.

Sin saber el tamaño de un SET, ni los elementos del mismo,
teniendo solo, por ej. sc : set of char;

. Como hago para recorrer el conjunto.
. Como hago para obtener la cantidad de elementos que tiene.
. Como hago para obtener los elementos que tiene.

Si alguien puede ayudar lo agredeceria.

Gracias.

seoane
03-01-2007, 17:12:30
A menos que alguien conozca otra manera, me temo que no queda mas remedio que recorrer los valores posibles y comprobar si se encuentran dentro del conjunto. Algo así:


var
i: integer;
C: Char;
Conjunto: set of Char;
begin
Conjunto:= ['a','b','c','d','e','f','g','t','u','v','w','x','y','z'];
i:= 0;
for C:= #0 to #255 do
if C in Conjunto then
begin
ShowMessage(C);
inc(i);
end;
ShowMessage(Format('Hay %d elementos',[i]));
end;

dieleo
03-01-2007, 17:26:46
Era de la forma que estaba pensando, o sea que depende del tipo de dato que sea el set.
Me imaginaba que existia alguna funcion de delphi para realizar esto, sin tener que recorrerlo dependiendo del tipo de dato.

Gracias.

Si alguien tiene otra solución lo agradeceria.

DarKraZY
03-01-2007, 19:43:05
y... ¿por qué no utilizar un array dinámico? De esa forma podrías obtener toda la información.

dieleo
03-01-2007, 20:29:58
La pregunta que hice, fue una pregunta por conocimiento, no quiere decir que lo valla aplicar.


Gracias igual.