Formatierung langer Terme

[alzaimar]

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.....