Set of string intersection et union

PhilLu
Messages postés
249
Date d'inscription
lundi 9 novembre 2009
Dernière intervention
6 mai 2018
- 6 mai 2018 à 11:16 - 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

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.