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.
