If-Anweisung mit "in"

[Binärbaum]

Ich hätte da eine Idee, wie man es ohne or hinkriegt. Dafür braucht man aber eine zusätzliche Funktion, die folgendermaßen aussieht:

Delphi-Quellcode:

function StrIdx(aStr: string; strArr: array of string): Integer;
var i: Integer;
begin
 Result:= -1;
 for i:= 0 to High(strArr) do
  if (aStr=strArr[i]) then 
  begin
   Result:= i; 
   Break; 
  end;
end;

Die Funktion liefert den Index von aStr, wenn es im Array strArr enthalten ist, sonst -1. Damit könnte man statt
If (DateiEndung = 'jpg') or (DateiEndung = 'jpeg') or ..... Folgendes schreiben:

Delphi-Quellcode:

 
If (StrIdx(DateiEndung, Endungen)>=0) then begin
  //mache irgendwas
  ...
end;

Die Variable Endungen muss in diesem Fall ein Array of string sein, indem die Dateiendungen, nach denen gesucht werden soll, enthalten sind.