Repeat Schleife

[Zeb22]

Wenn ich Einmal den Button betätige dürfte die Showmessage Box nicht erscheinen. Aber Sie tut es .

Frage: WARUM???????????????

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
 zahl3 := 3;
  repeat
   begin
     zahl3 := zahl3 +1;

   end
    until zahl3 = 5;
     showmessage('Tobi ist ein Zombi');
   end;
end.

[Jay2004]

Repeat ist ne schleife.

Code:

procedure TForm1.Button4Click(Sender: TObject);
begin
zahl3 := 3;
  repeat
   begin
     zahl3 := zahl3 +1;

   end
    until zahl3 = 5;
     showmessage('Tobi ist ein Zombi');
   end;
end.

funzt so nicht versuch es so:

Code:

zahl3 := 3;
.
.
.
procedure TForm1.Button4Click(Sender: TObject);
begin
  zahl3 := zahl3 +1;

  if zahl3 = 4 then
   begin
     showmessage('Tobi ist ein Zombi');
   end;
end.

[Luckie]

Und wie so sollte sie nicht erscheinen? Kannst du das begründen?

Du erhöhst den Zähler in der Schleife immer um eins und irgendwann ist der dann gleich der Abbruchbedingung, die Schleife wird verlassen und die Messagebox angezeigt.

[Nersgatt]

Übersetz Deinen Code mal auf Deutsch:

Code:

zahl3 := 3;
Wiederhole
  zahl3 := zahl3 + 1;
Bis zahl3 = 5;

ZeigeMeldung "Tobi ist ein Zombi"

Fällt Dir was auf?