Repeat Schleife

[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.