Wieso funktioniert diese boolsche Schleife nicht?

[BadenPower]

Wenn Du nur wissen möchtest, ob die Testauswertung 1x True ergeben hat, dann kannst Du auch die Schleife sofort verlassen.

Delphi-Quellcode:

function Test(i: Integer): Boolean;
begin
  ShowMessage('Zahl ist: ' + IntToStr(i));
  Result := (i mod 2) = 0; //Einfach etwas sinnloses, hauptsache gelegentlich True
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  b: Boolean;
begin
  b := False;
  for i := 0 to 8 do
   begin
    if (Test(i)) then
     begin
      b := true;
      break;
     end;
   end;

  ShowMessage(BoolToStr(b));
end;

Ist meiner Meinung nach noch effizienter.

[himitsu]

nja, zumindestens in dem anfänglichen Beispielcode ist damit die Schleife kaum effizienter, denn letztendlich kommt der Code ja auf Folgendes hinaus.

Delphi-Quellcode:

for i := 0 to 8 do
  if not b then 
    b := Test(i)
  {else
    b := b};

Also effektiv nur noch ein if b then continue; in der Schleife, welches noch maximal 8 Mal ausgeführt wird.

Aber auch wenn dein Code "länger" ist, so zeigt er zumindestens die "Funktion" etwas deutlicher.

Zitat:

hör auf, wenn gefunden (true)

[Popov]

Nein, will ich nicht. Wie ich schon sagte, #1 ist nur ein Beispiel, dass das Wesentliche zusammengefasst. Eben auf das Ermitteln ob schlussendlich mindestens eines der Rückgabewerte True war. Im eigentlichen Programm werden verschiedene Funktionen aufgerufen und am Ende will ich wissen ob mindestens eines davon kein Ergebnis geliefert hat. Die Schleife war nur dazu da, damit die Funktion mehrmals aufgerufen wird. Ich hätte sie auch in drei Zeilen hintereinander aufrufen können.