- procedure TForm2.BeimStart;//Was hier drinnen steht sollte zum Start ausgeführt werden
- begin
- BerechnungsZeit := GetTickCount();
- end;
- procedure TForm2.BerechnungsCheck;//Alle nötigen Berechnungen durchführen
- const
- Frequenz=1000;//Durch Windows festgelegt
- var
- AktuelleZeit:LongWord;
- begin
- AktuelleZeit := GetTickCount();
- Berechne((AktuelleZeit - BerechnungsZeit) /Frequenz);
- BerechnungsZeit := AktuelleZeit;
- end;
- procedure TForm2.Berechne(ZeitFaktor:Double);
- begin
- {Alle Berechnungen stehen hier }
- //z.B
- Pos.X := Pos.X + Speed.X*ZeitFaktor;
- if Pos.X > 20 then Pos.X := 0;
- end;