zehnerpotenzen

[3_of_8]

Ich hab schon mehrere Tage so verschwendet.

[Basilikum]

kleiner Nachtrag: Log von 0 ist nicht definiert - daher sollte bei 0 kein Logarithmus berechnet werden:

Delphi-Quellcode:

Function EngineerFormat(Const F : Double;Const Digits : Byte) : String;
Var
  P : Integer;
Begin
  If (Abs(F) > 0.0) Then P:=Trunc(Log10(F) + 500) - 500 Else P:=0;

  Result:=Format('%s*10^%d',[FloatToStrF(F / Power(10,P),ffFixed,15,Digits - 1),P]);
end;

[Khabarakh]

Für die ganz Faulen gäbe es auch noch FloatToStrF mit ffExponent (und ggf. StringReplace "E" -> "*10^") .

[Nicodius]

ah thx - ich werd mich damit jetzt noch etwas spielen


ich mach grad so ne physicunit und die soll mir halt alel möglichen sachen ermöglichen zum berechnen - danke auf jeden Fall an alle