Discussion :

[OutOfRange]

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 :

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

1
2
var
  MonEnsemble: set of char;

...et que je lui affecte

Code :

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

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

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

Code :

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

  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 :

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

  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 :

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

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

[Jipété]

Salustre !

MonEnsemble:=MonEnsemble+chr(n);

Ça peut pas le faire, mais

Code :

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

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

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

HTH,
--
jp

[OutOfRange]

Salut Jipété

Code :

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

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 :

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

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

ça le fait aussi

Merci Jipété

[OutOfRange]

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 :

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

MaChaine:=string(MonEnsemble)

dont le résultat serait 'ABC'

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

[Jipété]

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

[thewho]

Bonjour,

vite fait sur le gaz:

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
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

[sjrd]

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

Code :

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

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 :

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

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;

[OutOfRange]

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

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

[Jipété]

Yop !

et bonne écoute sur FI

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

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

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

[OutOfRange]

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

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
En Delphi, ça donne

Code :

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

MonEnsemble:=MonEnsemble+['D'];

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

[Jipété]

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

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

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

[OutOfRange]

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