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;
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;