Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi zehnerpotenzen (https://www.delphipraxis.net/66673-zehnerpotenzen.html)

3_of_8 2. Apr 2006 17:19

Re: zehnerpotenzen
 
Ich hab schon mehrere Tage so verschwendet.

Basilikum 2. Apr 2006 18:15

Re: zehnerpotenzen
 
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 2. Apr 2006 18:18

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

Nicodius 2. Apr 2006 21:13

Re: zehnerpotenzen
 
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 :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz