@yankee: Hm, dann gehn ja noch mehr Zeilen für
einen Befehl drauf
Zitat von
alzaimar:
(Falls das korrekt von mir entwirrt wurde
).
Joa, aber ich hab selbst nen Fehler in meinen Code gehauen
Aus irgendeinem Grund dachte ich nämlich, dass Ord(False) = -1 wäre.
Zitat von
alzaimar:
Und denk jetzt nicht, das das ja total langsam wird.....
Wird von der Geschwindigkeit wohl gar keinen Unterschied machen, weil nach der Übersetzung in
ASM ja sowieso jeder Befehl höchstens einen Operator enthält.
Zitat von
alzaimar:
Das ist doch nicht übersichtlich...
Ich hatte mir bei den Umbrechungen gedacht, dass der Zähler dann über dem Nenner steht. Aber ganz überzeugt war ich davon ja auch nicht.
Mein aktueller Favorit ist jetzt:
Delphi-Quellcode:
var
vx: Extended;
begin
{...}
vx := Sqrt( Sqr(TotalSpeed) / (Sqr(Tan(DegToRad(Angle))) + 1) );
if (Angle > 90) and (Angle < 270) then
vx := -vx;
edtVx.Text := FloatToStr(vx);
{...}
Wenn ihr noch weitere Ideen habt, schreibt sie hier rein.