If-Schleifen-Haufen zusammenfassen

[Die Muhkuh]

Hi dino,

das sollte wohl kein Problem darstellen:

Delphi-Quellcode:

function InArray(What: String; const Values: Array of String): Boolean;
begin
  Result := AnsiIndexText(What, Values) > - 1;
end;