Question

I am trying to keep a 1-10 count and if the count goes over 10 it starts back at 1

Tick := 5;
currentTick := 8;

Now FinalTick is going to be CurrentTick + Tick but once the value is 10 it should stat over at 1 thus in this case

5 + 8 = 3

How do I do this?

Answer 1

If you want count to be 0,1,2,3,4,5,6,7,8,9,0,1,2,3,4 etc, you can:

procedure IncCount(var ACount: Integer);
begin
  ACount := (ACount + 1) mod 10;
end;

If you want count to be 1,2,3,4,5,6,7,8,9,10,1,2,3,4 etc, you can:

procedure IncCount(var ACount: Integer);
begin
  ACount := ACount mod 10 + 1;
end;