Manipulation des ensembles. Ajout d'éléments

Bonjour
Je sèche sur un pb de modification du contenu d'un ensemble
J'ai cherché en vain, ce qui me fait penser que ce que je veux faire n'est pas possible
Admettons que je déclare cette variable...

Code:

---

1 2	var MonEnsemble: set of char;

---

...et que je lui affecte

Code:

---

MonEnsemble:=['A','B','C'];

---

Je peux lui ajouter un élément comme ça...

Code:

---

MonEnsemble:=MonEnsemble+['D'];

---

C'est à dire en faisant MonEnsemble devient MonEnsemble union un autre ensemble, à savoir ['D']
Mais alors comment faire pour une union avec un autre ensemble dont je ne connais pas, a priori, le contenu...

Code:

---

MonEnsemble:=MonEnsemble+chr(n);

---

ne fonctionne pas :?
Logique, chr(n) n'est pas un ensemble :(

D'où mes questions:
1) Comment je fais pour ajouter un élément à un ensemble, sans passer par un autre ensemble, un truc du genre

Code:

---

MonEnsemble.add('D')

---

2) Comment je fais pour désigner un élément de l'ensemble, par exemple le 2ème (dans ['A','B','C'], je voudrais récupérer 'B' (un char), et non ['B'], un set of char...

Merci pour votre aide

Salustre !

Citation:

---

MonEnsemble:=MonEnsemble+chr(n);

---

Ça peut pas le faire, mais

Code:

---

MonEnsemble:=MonEnsemble+[chr(70)];

---

se compile sans problème.
Suis pas allé plus loin.

HTH,
--
jp

Salut Jipété

Citation:

---

Envoyé par Jipété

Code:

---

MonEnsemble:=MonEnsemble+[chr(70)];

---

se compile sans problème.

---

Eh ben voilà... tout simplement
Des fois, on bute sur sur pas grand chose, un simple pb de syntaxe

Code:

---

MonEnsemble:=MonEnsemble+[chr(n)];

---

ça le fait aussi

Merci Jipété

Qqn aurait-il la réponse à la question 2

Comment je fais pour désigner un élément de l'ensemble, par exemple le 2ème (dans ['A','B','C'], je voudrais récupérer 'B' (un char), et non ['B'], un set of char...
1 soluce pourrait consister à récupérer tous les éléments de MonEnsemble dans un string

Concrètement, je voudrais faire un truc du genre

Code:

---

MaChaine:=string(MonEnsemble)

---

dont le résultat serait 'ABC'

Jipété mon ami, t'aurais pas un chtite :idea: ?

Non, désolé, j'ai jamais joué avec les "Set of ...".

Mais d'après ce que j'en ai quand même lu ici et là (car je lis tout, ou presque : quand c'est écrit en sms et le reste plein de fautes d'orthographes, je peux pas), je ne comprends pas pourquoi tu parles de ['B'] comme un "set of char".
Pour moi, c'est un élément de MonEnsemble, qui lui, est un "Set of char".
Donc 'B' est un char, je dirais. Enfin, je chercherais à partir de là.

Mais si tu relis ton post original, tu verras qu'il y a des trucs pas clairs pour un lecteur hors contexte, ;) , essaye de reformuler le besoin.

Il me semble avoir lu + ou - récemment des posts qui causaient de "Set of ..." : p'têt' qu'une 'tite recherche forumesque pourra t'aider également.

Enfin, je vais tomber la machine :

1. j'ai la dalle ;
2. je veux écouter Nicolas Hulot sur France-Inter à 14 h 00 (France métropolitaine).

Bon app' et mes 2 cts,
--
jp

Bonjour,

vite fait sur le gaz:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

type charset = set of char;   function strFromCharset (var v : charset) : string; var i : integer; begin result = ''; for i:=0 to 255 do begin if chr(i) in v then result := result + chr(i); end; end;   .... var chset : charset; s : string; .... chset = ['A','B','C']; s := strFromCharset (chset); ....

---

(je n'ai pas testé, mais ça devrait marcher, si je ne suis pas trop rouillé en Pascal).

Bien évidemment, les limites de la boucle dans la fonction, soit
0 à 255
peuvent être adaptées à ton cas, mais deviendront alors moins générales

L'ajout d'un élément peut être fait plus rapidement (au sens exécution du terme) comme ceci :

Code:

---

Include(MonEnsemble, chr(n));

---

MonEnsemble doit être une variable, pas une propriété, tout comme avec inc et dec. Pour supprimer un élement, utilise Exclude.

Même chose, pour coder plus rapidement (et plus proprement) la fonction CharSetToStr, je ferais ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function CharSetToStr(const CharSet : TSysCharSet) : string; var Count : integer; C : Char; begin SetLength(Result, 256);   Count := 0; for C := #0 to #255 do if C in CharSet then begin inc(Count); Result[Count] := C; end;   SetLength(Result, Count); end;

---

Jipété

Citation:

---

Envoyé par Jipété

je ne comprends pas pourquoi tu parles de ['B'] comme un "set of char".
Pour moi, c'est un élément de MonEnsemble, qui lui, est un "Set of char".
Donc 'B' est un char, je dirais. Enfin, je chercherais à partir de là.

---

Non ! :?
['B'] est un set of char qui ne contient qu'un élément qui est 'B', lui-même étant un char d'indice 66 chr(66)...
On peut dire par ex que ['B'] est inclus dans ['A','B','C'], ou que ['C'] est un sous-ensemble de ['A','B','C'] :)

Merci quand même pour tes suggestions et bonne écoute sur FI :mrgreen:

Merci sjrd et thewho... ça commence à s'éclaircir dans ma chtite tête de développeur
J'essaie ça au + vite

Yop !

Citation:

---

et bonne écoute sur FI

---

Super, ce Nicolas !
- - -
Et ça, tu le dirais comment, en français ? :

Citation:

---

C'est à dire en faisant MonEnsemble devient MonEnsemble union un autre ensemble

---

C'est c'te phrase qui m'a posé problème.
--
jp

Citation:

---

Envoyé par Jipété

Et ça, tu le dirais comment, en français ? :

Citation:

---

C'est à dire en faisant MonEnsemble devient MonEnsemble union un autre ensemble

---

C'est c'te phrase qui m'a posé problème.

---

C'est écrit en français :roll:
En Delphi, ça donne

Code:

---

MonEnsemble:=MonEnsemble+['D'];

---

T'as jamais bossé en maths sur les ensembles : union, intersection ?

Citation:

---

T'as jamais bossé en maths sur les ensembles : union, intersection ?

---

Si, mais y a tellement loooooooooongtemps que bon...

Citation:

---

C'est à dire en faisant MonEnsemble devient MonEnsemble union un autre ensemble

---

Quand je disais "en français", ça sous-entendait qqchse de grammaticalement correct, un peu comme ça :
C'est à dire en faisant ce qui est écrit au-dessus dans le bloc de code, MonEnsemble devient MonEnsemble union un_autre_ensemble.
Mais est-ce que ce que je viens d'écrire correspond à la réalité ?
--
jp

Jipété, tu me tues !
(sujet clos)