DegToRad...Etwas verwirrt :-/

[glkgereon]

Hi,

Ich möchte den Sinus ausrechnen....um möglichst allgemein zu bleiben habe ich mir für die verschiedenen Modi (Deg,Rad,Grad) eine Globale Config-Variable angelegt.

nun versuche ich so zu rechnen:

Delphi-Quellcode:

function ValToRad(Val: Extended):Extended;
begin
  Result:=0;
  Case Config.AngleType of
    aRad: Result:=Val;
    aDeg: Result:=DegToRad(Val);
    aGrad:Result:=GradToRad(Val);
  end;
end;

function RadToVal(Val: Extended): Extended;
begin
  Result:=0;
  Case Config.AngleType of
    aRad: Result:=Val;
    aDeg: Result:=RadToDeg(Val);
    aGrad:Result:=RadToGrad(Val);
  end;
end;

function Sinus(Val: Extended): Extended;
begin
  ShowMessage(FloatToStr(Val));
  Result:=RadToVal(Sin(ValToRad(Val)));
end;

komischerweise kommt nur leider bei dem aufruf Sinus(45) heraus:
40,5142342270698
und nicht, wie eigentlich korrekt:
0,7071067812...

Config.Angletype ist auf aDeg...hab ich überprüft...und ich weiss einfach nicht mehr weiter