If-Schleifen-Haufen zusammenfassen

[Hawkeye219]

Zitat von computer-glossar.de:

[...]weil break sind nen "no go"

Die Anweisung BREAK ist ein sinnvolles Sprachelement, welches - sparsam eingesetzt - zu durchaus lesbarem Code führen kann.

Delphi-Quellcode:

function InArray (const s: string; 
                  const A: array of string;
                  CaseSensitive: Boolean = False): Boolean;
var
  i    : integer;
  Same : function (const s1, s2: string): Boolean;
begin
  if CaseSensitive then
    Same := AnsiSameStr
  else
    Same := AnsiSameText;

  Result := False;

  for i := 0 to High(A) do
    if Same(s, A[i]) then
      begin
        Result := True;
        Break;
      end;
end;

Gruß Hawkeye