Comment obtenir le nombre d'éléments d'un ensemble set of TType ?

**prog33** · 16/08/2006, 14h02

Bonjour
J'utilise Delphi 7
Je voudrais savoir s'il est possible de déterminer directement le nombre d'éléments d'un ensemble défini par
const NTaille = un entier de 10 à 100;
type TIntervalle = [1..NTaille];
var UnEnsemble : set of TIntervalle;

sans avoir à utiliser les deux méthodes suivantes:
1) tester un par un les NTaille éléments possibles;
2) suivre éléments par élément les opérations successives d'intersection et de réunion.

je connais les procédures optimisées include et exclude mais je n'ai pas trouvé de fonction "nombre d'éléments"
Merci d'avance.

**Yurck** · 16/08/2006, 14h09

Si je ne m'abuse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

high(UnEnsemble)

doit répondre a ton besoin.

a+

**prog33** · 16/08/2006, 15h19

Merci pour la réponse mais...
high donne la borne supérieure des indices d’un tableau
Si j’utilise le code suivant, j’obtiens une erreur de types incompatibles

var I: Integer;

UnEnsemble := [1,2,5,7];
I:= high(UnEnsemble);

Je voudrais avoir I = 4, nombre d’éléments de UnEnsemble.

**Pascal Jankowski** · 16/08/2006, 17h00

teste cette partie de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  Tintervalle = (un,deux,trois,quatre,cinq);
  Tensemble = set of TIntervalle;
 
var
  ensemble: Tensemble;
  intervalle: Tintervalle;
 
.........
 
var count: integer;
begin
  count:= 0;
 ensemble := [un,deux,cinq];
  for intervalle in ensemble do inc(count);
  showMessage(intToStr(count));
end;

Te renverra la valeur 3, nombres cardinal de l'ensemble 'ensemble'

**prog33** · 16/08/2006, 17h22

Merci beaucoup,
c'est exactement ce qu'il me faut.
J'avais bien pensé à with mais pas à for ... in
j'ai encore une erreur de compilation:
"La variable de contrôle de boucle FOR doit être une variable locale simple"

**e-ric** · 16/08/2006, 18h23

La réponse donnée par Pascal est valable en .Net pas avec Delphi 7 (win 32).

Il n'y a pas de construction toute faite pour ton problème. Moralité (ou immoralité de Delphi ;-) : il faut coder !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
 TIntervalle = 1..NTaille;
 TEnsemble: set of TIntervalle;
 
function Cardinalite(Ens: Tensemble);
var 
  Elm : TIntervalle;
begin
  Result := 0;
  for Elm := Low(TIntervalle) to High(TIntervalle) do
    Inc(Result, Ord(IElm in Ens));
End;

C'est ce que tu ne voulais pas faire mais je pense que tu n'as pas le choix, désolé. Cela te pose vraiment un problème ?

cdlt

e-ric

**Pascal Jankowski** · 16/08/2006, 19h21

Envoyé par e-ric

La réponse donnée par Pascal est valable en .Net pas avec Delphi 7 (win 32).

C'est pas l'impression que j'ai eu, cela a été testé sur Delphi 2005 et sur un projet Win32 et non .Net

**prog33** · 16/08/2006, 19h28

Merci, cela fonctionne parfaitement.

La raison de ma question : NTaille est grand (au moins 100) mais les ensembles considérés ont au maximum une dizaine d'éléments. J'aurais voulu éviter une boucle de longueur NTaille comportant 10 fois plus de termes que la taille de l'ensemble à dénombrer.
J'avais pensé à utiliser exclude pour chaque élément trouvé jusqu'à ce que l'ensemble soit vide (=[]) mais cela fait boucler jusqu'au rang du dernier élément (qui peut valoir NTaille)
et cela rajoute une opération (exclude) + compteur et test =[] à chaque étape.

**edam** · 16/08/2006, 20h51

une question stupide

pourqoi veux tu savoir le nombre des elements que tu as toi meme crée????

**prog33** · 16/08/2006, 21h22

En raison du point 2) de ma question initiale
2) (ne pas avoir à) suivre éléments par élément les opérations successives d'intersection et de réunion.
j'effectue des simulations à l'aide de fonctions aléatoires et seul le nombre d'éléments de certains ensembles m'intéresse.

**e-ric** · 16/08/2006, 21h24

Envoyé par Pascal Jankowski

C'est pas l'impression que j'ai eu, cela a été testé sur Delphi 2005 et sur un projet Win32 et non .Net

C'est sans doute possible avec D2005, je n'ai pas fait le test car je n'ai pas ce compilo, je ne peux pas te contredire à ce sujet.

Sous D2005, le compilo Win32 profite sans doute des extensions du langage sous .Net. Mais sous D7, pas de cela !

cdlt

e-ric

**e-ric** · 16/08/2006, 21h30

Envoyé par prog33

En raison du point 2) de ma question initiale
2) (ne pas avoir à) suivre éléments par élément les opérations successives d'intersection et de réunion.
j'effectue des simulations à l'aide de fonctions aléatoires et seul le nombre d'éléments de certains ensembles m'intéresse.

Ne peux-tu pas créer une classe TEnsemble permettant toutes ces opérations sans t'appuyer sur le type standard set of.

Cela demande plus de travail mais est plus extensible. Tout dépend de la réutilisabilité d'une telle classe. N'oublions pas non plus que les ensembles sont limités en taille (256 éléments)

PS: je viens de me rendre compte que j'ai oublié le type de ma fonction : integer, comme vous l'aurez tous corrigé.

cdlt

e-ric

**Laurent Dardenne** · 16/08/2006, 22h21

Juste pour info

Envoyé par Pascal Jankowski

C'est pas l'impression que j'ai eu, cela a été testé sur Delphi 2005 et sur un projet Win32 et non .Net

Il s'agit des itérateurs disponible depuis Delphi 2005 Win32 et .NET.

**Pascal Jankowski** · 17/08/2006, 08h27

Merci Laurent pour cette précision, et désolé e-ric et prog33 pour ma réponse. J'aurais du la tester sur D5 (je n'ai pas D7)

**edam** · 17/08/2006, 10h44

Envoyé par prog33

...
const NTaille = un entier de 10 à 100;
type TIntervalle = [1..NTaille];
var UnEnsemble : set of TIntervalle;
...
2) suivre éléments par élément les opérations successives d'intersection et de réunion.

Envoyé par prog33

seul le nombre d'éléments de certains ensembles m'intéresse.

soit je suis stupide soit ...; mais la tu déclare un ensemble a ntaille element et tu cherche le nombre des element de cette ensemble
désoler si j'ai pas vraiment compri, mais tu peut me donnée un peut de votre temp et m'expliqué un peut plus???????

**slimjoe** · 17/08/2006, 13h31

Envoyé par edam

soit je suis stupide soit ...; mais la tu déclare un ensemble a ntaille element et tu cherche le nombre des element de cette ensemble
désoler si j'ai pas vraiment compri, mais tu peut me donnée un peut de votre temp et m'expliqué un peut plus???????

Salut edam!

Je crois comprendre sur quoi tu accroches...

NTaille c'est la longueur du type TIntervalle. Ici, on cherche la taille de l'ensemble UnEnsemble qui n'est pas de type TIntervalle mais de type set of TIntervalle. Ça veut dire quoi ? En gros que UnEnsemble pourrait uniquement contenir les valeurs 3 et 57 et avoir une longueur de 2 pendant que NTaille est initialisé à 100 (donc que les valeurs possibles de TIntervalle soient des entiers entre 1 et 100, pour une longueur de 100).

Je suis la discussion depuis le début. Moi aussi j'aurais aimé trouver une méthode toute faite

**prog33** · 17/08/2006, 13h57

Slimjoe et edam

Slimjoe a parfaitement compris le problème.

e-ric
Pour NTaille > 256, je pense que le mieux pour TEnsemble est un TBit avec
soit un champ TrueBits pour un suivi permanent
soit une procedure CountTrueBits pour un suivi occasionnel

intersection de deux ensembles : opérateur booléen AND bit par bit
réunion de deux ensembles: OR bit par bit
element IN ensemble: Bit[element] = true

Si j'ai bien compris la doc, un ensemble est de toute façon representé de manière interne par un bitmap similaire à un TBit

Merci à tous pour vos réponses
prog33

**e-ric** · 17/08/2006, 14h11

J'avais complètement oublié cette classe TBit, j'ai dû m'en servir une fois il y a longtemps.

cdlt

e-ric

**edam** · 17/08/2006, 16h38

Envoyé par slimjoe

Salut edam!

Je crois comprendre sur quoi tu accroches...

NTaille c'est la longueur du type TIntervalle. Ici, on cherche la taille de l'ensemble UnEnsemble qui n'est pas de type TIntervalle mais de type set of TIntervalle. Ça veut dire quoi ? En gros que UnEnsemble pourrait uniquement contenir les valeurs 3 et 57 et avoir une longueur de 2 pendant que NTaille est initialisé à 100 (donc que les valeurs possibles de TIntervalle soient des entiers entre 1 et 100, pour une longueur de 100).

sa je le sais déjà, unensemble que tu déclare de type set of a suremnt a nombre connu d'elemnt quant tu le déclare et mem avant décrir un seul ligne de code,non??
tu dis

En gros que UnEnsemble pourrait uniquement contenir les valeurs 3 et 57 et avoir une longueur de 2 pendant

sa veux dire que tu connais déjà la taille (2 ici) aavnt l'utilisation de cette ensemble;

c'est pas la premiére fois que je vois sa sur ce forum, en casse la tete a ajoute des ligne de code pour cherché quelque chose ou trenstypé des variable que nous savont déjà leur type leur taille,

je parle pas ici des variable crée dynamiquement, ni pour minimisé le code