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.