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:

zusammenfalten · markieren

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

Moin Dash,

Aendere diese Zeile: if cm > 100 then mal in 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

Moin,

Dankeschön
Funzt super

MfG