Häufig sieht man ja Code wie diesen:
Delphi-Quellcode:
if (land='DE') or (land='AT') or (land='IT') or (land='FR') or
(land='ES') // Und so weiter
then
ShowMessageFmt('Land %s gehört zur EU', [land]);
Und weil 27 Bedingungen so unübersichtlich sind wird angefangen jede Bedingung in eine eigene Zeile zu stellen:
Delphi-Quellcode:
if (land='DE') or
(land='AT') or
(land='IT') or // Und so weiter
then
Aber das macht es auch nicht besser.
Dabei kann man es ganz elegant schreiben:
Delphi-Quellcode:
var
IsEuroZone : Boolean;
begin
IsEuroZone := StrIsOneOf(land, ['DE','AT','IT','FR' ... ]);
if not IsEuroZone then
ShowMessageFmt('Land %s gehört NICHT zur EU', [land]);