If-Schleifen-Haufen zusammenfassen

[semo]

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string): boolean;
var 
  i: integer;
begin
  result := false;
  for i := 0 to high(StrArray)-1 do
  begin
    if s=StrArray[i] then
    begin
      result := true;
      break;
    end;
  end;
end;

würd ich immer über ne while schleife lösen,
weil break sind nen "no go"
also:

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string): boolean;
var 
  i: integer;
begin
  result := false;
  i      := 0;
  while (not Result) and (i < to high(StrArray)) do
  begin
    result := s=StrArray[i];
    Inc(i);
  end;
end;

und das ganze könnte man dann ja noch um die möglichkeit erweitern auf groß/kleinschreibung zu achten oder nicht

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string; bCaseSensitiv: Boolean = false): boolean;
var 
  i: integer;
begin
  result := false;

  if not bCaseSensitiv then  
    s := AnsiUpperCase(s);

  i      := 0;
  while (not Result) and (i < to high(StrArray)) do
  begin
    if bCaseSensitiv then
      result := s=StrArray[i]
    else 
      result := s=AnsiUpperCase(StrArray[i]);

    Inc(i);
  end;
end;