Set of string intersection et union

PhilLu Messages postés 251 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 11 mai 2021 - 6 mai 2018 à 11:16
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 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

A voir également:

Delphi set of
Delphi format - Conseils pratiques -Delphi
C# get set - Forum C# / .NET
Delphi case of ✓ - Forum Delphi / Pascal
Case of - step by step ✓ - Forum Delphi / Pascal

1 réponse

Réponse 1 / 1

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
6 mai 2018 à 13:07

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,

Discussions similaires

probléme : Object reference not set to an instance of an object

ERROR sql java.sql.SQLException: Before start of result set

A quoi sert la fonction Set ?

Object reference not set to an instance of an object.

[Excel | VBA] Macro fonction "Remplacer" avec variables

Utilisation de la fonction SET

Votre réponse

Discussions similaires