Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Wieso funktioniert diese boolsche Schleife nicht?

   
    by BadenPower, 5. Apr 2015
  Wenn Du nur wissen möchtest, ob die Testauswertung 1x True ergeben hat, dann kannst Du auch die Schleife sofort verlassen.
  
  
  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);