for-Schleife gegen über while-Schleife

[Hansa]

Knackpunkt ist allerdings tatsächlich die Ende-Bedingung :

Zitat von Luckie:

Delphi-Quellcode:

while (i < length(SonnenStundenListe) - 1) and (not Result) do
  begin
    CurrentPLZ := SonnenStundenListe[i, 0];
    Result := CurrentPLZ = PLZ;
    Inc(i);
  end;
end;

Ist zwar hier ziemlich einfach, aber ich entflechte das lieber trotzdem so ungefähr :

Delphi-Quellcode:

ende := result;
if not ende then
  ende := not (i < length(SonnenStundenListe) - 1);
while not ende do begin
  CurrentPLZ := SonnenStundenListe[i, 0];
  Result := CurrentPLZ = PLZ;
  Inc(i);
...
end;

Wem 20 Nanosek. wichtiger sind, als seine eigene Programmlogik, der soll meinetwegen sogar auf die eine Variable verzichten.