Zahl erst hochzählen wenn andere Hunderter erreicht hat

[Dash]

Hi,

ich habe vor eine Zahl +1 zu zählen, wenn eine andere einen vollen Hunderter erreicht hat.
z.B. bei 100 soll die zweite auf 1 sein bei 200 auf 2 usw.

Ich habe das ganze bisher so realisiert:

Delphi-Quellcode:

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
 if (x < Mouse.CursorPos.X) or (x > Mouse.CursorPos.X) or
    (y < Mouse.CursorPos.Y) or (y > Mouse.CursorPos.Y) then
 begin
  cm := StrToInt(IntToStr(cm + 1));
  if cm > 100 then
  m := StrToInt(IntToStr(m + 1));
  Label4.Caption := inttostr(ord(cm));
  Label5.Caption := inttostr(ord(m));
 end;
 x := Mouse.CursorPos.X;
 y := Mouse.CursorPos.Y;
end;

Aber so bald cm über 100 ist werden die M die ganze Zeit mitgezählt :/

MfG

[alcaeus]

Moin Dash,

Aendere diese Zeile:

Delphi-Quellcode:

if cm > 100 then

mal in

Delphi-Quellcode:

if cm mod 100 = 0 then

um. Zur Zeit ueberpruefst du, ob cm > 100 ist, waehrend das zweite Statement prueft, ob die Zahl durch 100 teilbar ist (d.h. bei der Division durch 100 kommt kein Rest raus).

Greetz
alcaeus

[Dash]

Moin,

Dankeschön :thumb:
Funzt super :mrgreen:

MfG