Ursache für Rangecheck Error finden

[fliegermichl]

Ich habe eine Programmzeile:

Code: Alles auswählen

  fCurrentY:=((MeasureUnitsToPixelsV(MarginTop-PageBorderOffset)-fLineSpace) shr 1)-MeasureUnitsToPixelsV(MarginTop)

Da hält der Debugger das Programm an und sagt "Rangecheck Error". Kann man ihn irgendwie dazu überreden, etwas ausführlicher zu sein?

[Zvoni]

Ohne Datentypen wirds schwer.....

Ein Rangecheck-Error ist im Regelfall der Hinweis, dass du versuchst 5 Liter Wasser in eine 2 Liter Flasche zu stopfen....

[fliegermichl]

Ja oder fCurrentY ist vom Typ cardinal und das Ergebnis ist kleiner 0.
Wäre halt schick, wenn das der Debugger gleich konkretisieren könnte.

[Zvoni]

Ja oder fCurrentY ist vom Typ cardinal und das Ergebnis ist kleiner 0.
Wäre halt schick, wenn das der Debugger gleich konkretisieren könnte.

Nicht zu vergessen, das ein "shr 1" gleichbedeutend mit einer Division durch 2 ist.
Kann es sein, dass dein "(MeasureUnitsToPixelsV(MarginTop-PageBorderOffset)-fLineSpace)" etwas ungerades zurückgibt?
"shr 1" wirft einen vorhandenen Rest <>0 über Bord.
Und danach subtrahierst du ja noch was