Okay,haha.. blöderweise ist mir in den Sinn gekommen erst eine Zahl zu belegen und dann auf das Label zu packen,
anstatt das Label hintenrum auf eine Integer variable.
Dass das jetzt vielleicht kein komplett verschwendet Beitrag wird kann mir jemand möglicherweise sagen was das direkt für einen Unterschied macht
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(xGo);
randomize;
GoZahl:=random(6)+1;
lbl_wuerfel.Caption:=intToStr(GoZahl);
if xGo = 15 then
begin
timer1.enabled:=false;
timer2.Enabled:=true;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
inc(shapeGo);
shape1.Top:=shape1.Top-80;
if shapeGo = GoZahl then begin
timer2.Enabled:=false;
end;
end;