Prüfen, ob mehrere Elemente in set enthalten?

[BlueStarHH]

Wie kann ich einfach überprüfen ob ein Element in einer Menge enthalten ist und ich sehr viele Elemente überprüfen muss?

Beispiel:

Delphi-Quellcode:

TFoo = (fA, fB, fC, fD, fE, fF, fG, fH, fI, ...)

Foo = [fA, fF, fI];

if (fB in Foo) or (fD in Foo) or (fE in Foo) or (fI in Foo) ... then

Kann man die if-Zeile einfacher formulieren? Gibts da evtl. eine Funktion?

[leddl]

Du könntest dir eine Menge definieren, die alle Werte enthält, die du prüfen möchtest. Dann berechnest du die Schnittmenge deiner 2 Mengen und prüfst, ob sie leer ist.

Delphi-Quellcode:

zuPrüfen = [fB,fD,fE,fI,...];
Foo = [fA, fF, fI];
SchnittMenge = zuPrüfen*Foo;
If SchnittMenge <> [] Then
Begin
//...
End;

[BlueStarHH]

Danke, das suchte ich!