delphi - 如何重新开始计数

Question

我试图保持 1-10 计数，如果计数超过 10，它会从 1 开始

Tick := 5;
currentTick := 8;

现在 FinalTick 将是 CurrentTick + Tick 但一旦值为 10，它应该在 1 结束，因此在这种情况下

5 + 8 = 3

我该怎么做？

Answer 1

如果你希望计数为 0,1,2,3,4,5,6,7,8,9,0,1,2,3,4 等，你可以:

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

如果你希望计数为 1,2,3,4,5,6,7,8,9,10,1,2,3,4 等，你可以:

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