Die funktion Round muss weg:
Delphi-Quellcode:
var
blend : double;
blend := AnzeigeWinkel/DrehWinkel;
Ausserdem darf DrehWinkel niemals 0 sein.
AnzeigeWinkel muss zwischen 0 und maximal DrehWinkel sein.
Hier bietet sich Assert() als Sicherheitsnetz an:
Delphi-Quellcode:
var
blend : double;
Assert(Drehwinkel > 0, 'Drehwinkel ist nicht > 0');
Assert(AnzeigeWinkel >= 0, 'AnzeigeWinkel negativ');
Assert(AnzeigeWinkel <= DrehWinkel, 'AnzeigeWinkel zu gross');
blend := AnzeigeWinkel/DrehWinkel;