Delphi中如何确保多个布尔条件中仅一个为真？

本文共计450个文字，预计阅读时间需要2分钟。

我有这样一个函数，它评估多个布尔变量（在我的情况下为7个）和条件，如果其中只有一个为true，则结果为true（其余为假）。