Source Formatter, der folgendes kann gesucht

[shmia]

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]);