Set of string intersection et union

Messages postés
249
Date d'inscription
lundi 9 novembre 2009
Statut
Membre
Dernière intervention
6 mai 2018
- - Dernière réponse : Cirec
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 août 2018
- 6 mai 2018 à 13:07
Bonjour,
Je cherche à utiliser les fonctions + et * sur des set of mais le set of string n'existe pas.
Cette possibilité existe bien dans python.
a = [1,2,3,4,"B"]
b = [2, "B"]
sa = set(a)
sb = set(b)
c = sa.intersection(sb)

Y a t'il une alternative?
Merci d'avance,
Phil
Afficher la suite 

Votre réponse

1 réponse

Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 août 2018
32
0
Merci
Bonjour,

en Delphi tu peux faire ça:
type
  TA = (s1, s2, s3, s4, sB = ord('B'));
 //TA = (s1=1,s2=2,s3=3,s4=4,sB = ord('B'));

procedure TForm1.Button1Click(Sender: TObject);
var
  st1          : set of TA;
  st2          : set of TA;
begin
  st1 := [s1, s2, s4, sb];
  st2 := [s2, sb];
  if st1 * st2 = [s2, sb] then
    Caption := 'Ok';
end;


Cordialement,
Commenter la réponse de Cirec