Verständnissproblem bei Schleife

[Satty67]

Continue ist ja nicht das Gegenteil von Break. Coninue ist im Grunde auch ein Break, aber nur für den Rest der Schleife ohne die Schleife als ganzes abzubrechen... oder?

Delphi-Quellcode:

procedure TForm1.ButtonSaufAbendClick(Sender: TObject);
const
  BierImKasten = 24;
  VertraegtBier = 6;

  function WeiterSaufen( NachWievielBier : Integer) : Boolean;
  var
    Msg : String;
  begin
    Msg := Format('Willst Du nach %d Flaschen Bier weitersaufen?',[NachWievielBier]);
    Result := MessageDlg(Msg,mtConfirmation,[mbYes,mbNo],0)=idYes;
  end;

  function KastenLeer(BierVerbraucht: Integer) : Boolean;
  begin
    Result := BierVerbraucht = BierImKasten;
  end;

var
  Bier, Leergut, Uebergeben, BierGekippt, BierIntus : Integer;
  Msg : String;
begin
  BierGekippt := 0;
  BierIntus := 0;
  Leergut := 0;

  // Diese Schleife wird mit continue und break gesteuert
  for Bier := 1 to BierImKasten do begin

    BierGekippt := BierGekippt +1;
    Leergut := Leergut +1;

    if not KastenLeer(BierGekippt) and Weitersaufen(Bier) then Continue;

    Uebergeben := BierGekippt div VertraegtBier;
    BierIntus := BierGekippt mod VertraegtBier;

    Break;
  end;

  Msg := 'Du hast noch %d Flaschen Bier im Kasten'#13+
         'Du hast Dich %d x Übergeben.'#13+
         'Du hast jetzt noch %d Flaschen Bier intus.';
  ShowMessage(Format(Msg,[BierImKasten - Leergut, Uebergeben, BierIntus]));
end;

Ok, das Beispiel wurde etwas zu umfangreich um noch als verständliches Beispiel durchzugehen :mrgreen:

[DeddyH]

Break bricht die gesamte Abarbeitung der aktuellen Schleife ab. Continue hingegen führt lediglich den anschließenden Schleifencode nicht aus, sondern setzt die Schleife mit dem nächsten Wert fort. Der Vollständigkeit halber: Exit würde die gesamte Prozedur/Funktion verlassen, Halt gar das ganze Programm beenden.

[Satty67]

Exit könnte man noch als StoerungBeiBier = Random(24)+1 einbauen. Dann wäre es ein BeispielCode für Exit, Break, Continue...

[DeddyH]

[OT] Break hat aber im Normalfall nichts mit Erbrechen zu tun :lol: [/OT]

[Satty67]

Ist mir so dabei eingefallen... aber Break bricht ja auch nur den Saufabend vorzeitig ab ;)

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Delphi-Frage