Timer

[Zeref Darkmage]

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;