Hierfür sollten dir div und mod eine Hilfe sein.
Zitat von
Delphi Hilfe - F1:
Der Wert von x div y entspricht dem Wert von x/y, abgerundet in Richtung Null bis zum nächsten Integer-Wert.
Der Operator mod liefert den Rest, der sich bei der Division seiner Operanden ergibt. Das bedeutet: x mod y = x - (x div y) * y.
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.