for-Schleife gegen über while-Schleife

[Satty67]

Zitat von Hansa:

Beim ersten gucken hat der mich schon 5 Sek. aufs Glatteis geführt.

fand das auch unübersichtlich geschrieben:

Delphi-Quellcode:

function IsPLZInArray(SonnenStundenListe: TSonnenStunden; PLZ: Integer): Boolean;
var
  i: Integer;
begin
  Result := False;

  for i := 0 to length(SonnenStundenListe) - 1 do
  begin
    if SonnenStundenListe[i, 0] = PLZ then
    begin
      Result := True;
      Exit;
    end;
  end;

end;

Zitat von Hansa:

Ich bevorzuge jedenfalls Häuser mit einem Ein/Ausgang und nicht welche mit 10 versteckten Ausgängen.

Denke eine Funktion sollte sowieso nicht 10 Schleifen enthalten...