-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
19. Jun 2017
doch . . . setz mal die Digit's auf 3,
dann bekommst Du bei einem Ausgangswert von 498 ----> 0,498 K.
Wenn dagegen die Anzahl der Nachkommastellen auf 0 steht, kann da nichts Vernünftiges bei 'raus kommen.
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
12. Nov 2016
@ CodeX
... so sollte es gehen, ist bestimmt noch verbesserbar, liefert aber erstmal das gewünschte Ergebnis.
Post # 5 aktualisiert
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
12. Nov 2016
was soll den die optimale Formatierung sein ?
Diese ist in jedem Fall erst mal von der Verwendung abhängig,
z.B. beim Messen elektrischer Größen benötige ich bei einer
Bauteilangebe von : Toleranz = ±0,02 % mind. 4 Nachkommastellen,
um dieses Bauteil beurteilen zu können.
Woher soll die Funktion wissen, wie viele Nachkomastellen -
oder Vorkommastellen ich haben möchte ?
o.k. an dem...
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
12. Nov 2016
@ CodeX
Du musst die Anzahl der Digits schon hoch setzen, sonst erwischt Du nur die 1000er !
siehe Screenshot
... oder Eliminate verwenden - siehe Screenshot 2
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
12. Nov 2016
Hab' den Post # 5 noch mal geändert :
FloatToStrS(1000000000, False, False, 6, 0) sollte 1 G ergeben.
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
21. Mär 2016
ups :shock:
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
21. Mär 2016
o.k., danke --> dann spar' ich mir ja noch zwei Byte :-D
. . . überarbeitet
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
21. Mär 2016
Stimmt, aber dann hätte ich diese Prüfung mit passendem Epsilon in der Funktion, wo ich sie eigentlich nicht haben möchte - diese
Funktion benutze ich in Programmen (z.B. beim Vergleich von errechneten Widerstandswerten mit der E-96- bzw. E192-Reihe), wo ich dann
auch einen entsprechenden Epsilon-Wert definiere, verschieden für z.B. die E-96-Reihe und E-192-Reihe.
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
21. Mär 2016
Moin,
danke für die Anregungen,
"Tera" ist geändert.
Das "K" für KILO ist bewusst groß geschrieben, da sich mittlerweile dies im Allgemeinen als
Schreibweise durchgesetzt hat, wer mag, kann dies ja ändern.
... über eine sinnvolle Prüfung / Behandlung von Werten außerhalb des Arbeitsbereiches werd' ich heute Abend mal nachgrübeln :gruebel:
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
20. Mär 2016
Moin.
eine etwas überarbeitete Version :
// Value : Wert
// Short : True = kurze Exponententialwerte : 'K für Kilo' .... , False = Exponentialwerte ausgeschrieben
// OutString : Einheit zum Anhängen an die Ausgabe
// Accuracy : Genauigkeit
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
23. Jun 2009
Hallo,
die überflüssige Zeile mit mit Index ... ist entfernt
und die Rückgabe von 0 kann ja jeder gestalten, wie er möchte,
zumal es wenig Sinn macht, 0 durch diese Funktion zu jagen.
@himitsu : danke, an ein zweidimensionales array hab' ich nun gar nicht gedacht.
... warum einfach, wenn's auch schwer geht ...... :wall:
-
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by markus5766h,
23. Jun 2009
Hallo,
da ich bei der Suche nach einer Umwandlungsfunktion, die mir einen Extended-Wert in einen String wandelt,
und dabei auch die dekadischen (Tausender-) Einheiten angibt, nichts passendes gefunden habe, hier
meine Funktion :
// uses MATH
function ConvertValueToString(Value : Extended; Short, Eleminate : Boolean; OutString : String; accuracy : Integer): String;...