in repeatschleife zum anfang der schleife springen

[stoxx]

Zitat von PhöniX:

irgend wie funktioniert das nich mit dem goto...
jannst du mir mal die genauen befehle sagen?

hier eine selbstgemachte Endlosschleife.
Er kommt nie bis zur zeile a := 1;

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    a : integer;
   label sprungmarke;

begin
a := 0;
repeat
sprungmarke:

a := a + 2;
caption := inttostr(a);

goto sprungmarke;

a := 1;
caption := inttostr(a);

until a = 1;

end;