Gleitkommazahlen mit Punkt statt Komma

[Erutan]

Hallo,

ich würde gerne einen Wert aus einem Delphiprogramm mittels IdHTTP an meinen Internetserver senden lassen wo es von einem php-script in eine MySQL-Datenbank geschrieben wird.

Es handelt sich bei diesem Wert nur um eine Gleitkommazahl (Float) mit zwei Nachkommastellen, in der Form: 0,92.

Ein weiteres php-script liest diese Zahl, zusammen mit einigen weiteren hundert Zahlen in eine Tabelle ein und soll damit rechnen. Es soll ein Durschschnitt berechnet werden indem alle Zahlen aufadiert und dann durch die Anzahl der Zahlen geteilt werden. Daher kann ich (denke ich) die Werte auch nicht als String übertragen oder in der Datenbank speichern.

Nun erwartet die MySQL Datenbank allerdings ein anderes Format als Delphi ausspuckt. Lasse ich mir nämlich den ermittelten Wert, der übertragen werden soll, als Label anzeigen, so stet da ein Wert mit einem Komma. MySQL will bei Float aber einen Wert mit einem Punkt statt des Kommas.

Die Berechnung findet hier statt:

Delphi-Quellcode:

ergebnis := werter / sec ;
ergebnis := ergebnis*100;
ergebnis := round(ergebnis);
ergebnis := ergebnis/100;
Label4.Caption := 'Auswertung: ' + FloatToStr(ergebnis);

(Die Multiplikation mit 100, das kaufmännische Runden und die Division durch 100 findet statt um das Ergebnis auf zwei Nachkommastellen zu beschränken.)

Die Variable "werter" ermittelt wie oft ein bestimmtes Ereignis eintritt. Sie wird durch die vertrichene Zeit (sec) geteilt.
Das Ergebnis (ergebns) soll dann in die MySQL-Datenbank geschrieben werden damit ein php-script mit diesen Werten in Echtzeit statistische Berechnungen anstellen kann.

Nur nimmt MySQL keine Floatzahlen mit Komma statt Punkt an. Der Wert bleibt dann einfach 0.

[Thom]

Setze den Wert DecimalSeparator:='.';

[Medium]

Es gibt von FloatToStr() eine überladene Version mit 2 Parametern. Der zweite ist vom Typ TFormatSettings, in dem du u.a. festlegen kannst, welches Zeichen als Dezimalseparator bei der Umwandlung benutzt werden soll.

Edit: Die Variante von Thom geht auch, nur wird damit das Zeichen global für dein gesamtes Programm geändert. Das kann u.U. dann Probleme an anderen Stellen machen. Man kann es natürlich wieder zurück setzen nachdem man fertig ist, aber sauberer ist imho die Benutzung der Überladung.

[Erutan]

Cool, das funktioniert.

Danke Euch beiden. Ich habe die erste Möglichkeit gewählt. In diesem Fall ist es nicht schlimm wenn sich der Wert global ändert.

[Uwe Raabe]

Zitat von Erutan:

Ich habe die erste Möglichkeit gewählt. In diesem Fall ist es nicht schlimm wenn sich der Wert global ändert.

Aber vielleicht im nächsten?

[DeddyH]

IIRC gab es die überladene Variante unter Delphi 5 noch gar nicht.

[hstreicher]

Ohne sich Globale Probleme einzufangen kann man das ganz einfach mit einem StringReplace machen

mfg Hannes

[arnof]

.....

[hstreicher]

Modernere Delphis bieten dafür den Datentyp Currency und dann isses kein Problem mehr

mfg Hannes

[arnof]

es gibt ja auch andere Währungen, da muss man trotzdem von Hand ran und man kann sich nicht darauf verlassen!

Ausserdem gilt dies auch für alle Datenbanken