Continue + Repeat-Until

[fui-tak]

Bei mir funktioniert der Continue Befehl auch ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
   a := 0;
   label1.caption := '';
   repeat
   begin
     a := a + 1;
     if a = 5 then
       Continue;
     label1.caption := label1.caption + IntToStr(a);
   end
   until a >7;
end;

hier ist am Ende der Text von Label1 1234678, die fünf fehlt also


Wird also wahrscheinlich was mit der Bedingung zu tun haben