Das ist doch nicht übersichtlich...
Delphi-Quellcode:
edtVx.Text := FloatToStr( Ord((Angle < 90) or (Angle > 270)) *
Sqrt(
Sqr(TotalSpeed) /
( Sqr(Tan(DegToRad(Angle))) + 1 )
)
);
So würde ich das übersichtlich gestalten.
Delphi-Quellcode:
...
Var
Vx, Ts2, TanAngle2 : Double;
Mult : Integer;
Begin
Ts2 := Sqr (TotalSpeed);
TanAngle2 := 1 + Sqr (Tan (DegToRad (Angle)));
If (Angle < 90) or (Angle > 270) Then
Mult := 1 // Wieso???
else
Mult := 0;
vx := Mult *Sqrt(Ts2/TanAngle2);
edtVx.Text := FloatToStr(vx);
...
(Falls das korrekt von mir entwirrt wurde
).
Und richtig übersichtlich wird es, wenn du noch dazuschreibst, was das soll. Wie willst Du denn eigentlich bei deinem Stil Fehler finden?
Und denk jetzt nicht, das das ja total langsam wird.....