How to start over a count

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?

score 5 · Accepted Answer · answered Jul 21 '12 at 15:08

5

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;

answered Jul 21 '12 at 15:08

Toon Krijthe

52,876
38
145
202

Thanks never knew about this Modulo Operator – Glen Morse Jul 21 '12 at 15:11

score 5 · Answer 2 · answered Jul 21 '12 at 15:09

5

I would use the so called modulo operator ( http://en.wikipedia.org/wiki/Modulo_operation).

FinalTick := ( CurrentTick + Tick ) mod 10;

answered Jul 21 '12 at 15:09

jcklie

4,054
3
24
42

"if the count goes over 10 it starts back at 1" So add *if FinalTick = 0 then FinalTick := 10;* – Arioch 'The Jul 23 '12 at 14:46

score 3 · Answer 3 · answered Jul 21 '12 at 15:09

3

You should use modulo operator, such as

Val:=(5+8) mod 10

answered Jul 21 '12 at 15:09

seeker

3,255
7
36
68

score 2 · Answer 4 · answered Jul 21 '12 at 15:16

MOD operator is a solution as most answers here.

Sometimes this may help:

procedure Foo;
var I: Integer;
begin
  I := 0;
  repeat
    I := I + 1;
    // Do your stuff here
    ShowMessage(IntToStr(I));
    // Add some exit conition, like:
    // if (..) then break;
    if I = 10 then I := 0;
  until False;
end;

How to start over a count

4 Answers4