Dezimaltrenner

[ErnstVolker]

Hallo zusammen,

nachdem das mit den Arrays nun funktioniert rechnet mein Programm auch fleißig damit und es stell sich mir ein neues Problem. Ich habe zwar eine Lösung dafür, die gefällt mir aber nicht.
Folgendes:

Ich möchte meine Arrays in einer Textdatei ausgeben. Hierfür nutze ich "FloatToStrF" mit ffFixed. Das geht auch prima, nur daß als Dezimalzeichen ein Komma verwendet wird. Einerseits finde ich klasse, daß ich z.B. in TextEdit-Felder Zahlen wahlweise mit Komma oder Punkt eingebe kann, Lazarus rechnet mit Beiden, nur bei der Ausgabe in die Textdatei hätte ich gern einen Punkt und kein Komma. Das scheint mit der Ländereinstellung zu tun zu haben.
Gibt es einen Befehl, mit dem ich vor dem Export in die Textdatei von Komma auf Punkt umstellen kann und anschließend wieder zurück?
Mein jetziger Lösungsweg ist, daß ich zu jedem array ein zugehöriges "array of String" erzeuge und dann in einer for-Schleife mit dem Befehl"Str(X_F,sX_F)"
(das kleine "s" kennzeichnet String) umstöpsele, was mir nicht gefällt.
Ich würde gerne "FloatToStr" nutzen, nur aber mit Punkt statt Komma.

MfG

Volker

[Hitman]

Definier deine eigenen TFormatSettings und übergeb die an FloatToStr (und dann umgekehrt auch bei StrToFloat).

[monta]

Oder einfacher, vorher das Trennzeichen setzen:

Code: Alles auswählen

DecimalSeparator := '.';

[ErnstVolker]

Vielen Dank!

Den "DecimalSeparartor" werde ich heute Abend probieren.

Die eigene Klasse TFormatSettings ist mir noch etwas zu hoch. Hab' noch keine Vorstellung wie das geht.

Aber trotzdem DANK an ALLE!

Gruß

Volker

[KOBOLD Messring GmbH]

Bin auch erst an einem ähnlichen Problem verzweifelt, dann aber gelöst:
Die Komponente TFloatSpinEdit verträgt auf einem System mit Komma-als-Länderspezifischem-Dezimaltrenner nicht den Punkt als Dezimaltrenner (über Decimalseparator := '.' eingestellt).
Hierbei jedesmal wieder zurückschalten auf ',', wenn man so was benutzt, und wieder bei der Ausgabe mit FloatToStr auf Punkt. Geht anscheinend nicht anders.

[Hitman]

Vielen Dank!

Den "DecimalSeparartor" werde ich heute Abend probieren.

Die eigene Klasse TFormatSettings ist mir noch etwas zu hoch. Hab' noch keine Vorstellung wie das geht.

Aber trotzdem DANK an ALLE!

Gruß

Volker

Das ist ein simpler Record.

Code: Alles auswählen

var
  myFormatSettings: TFormatSettings;
 
begin
  myFormatSettings.DecimalSeparator := '.';
  writeln(FloatToStr(myFloat, myFormatSettings));
end;

[ErnstVolker]

DecimalSeparator := '.';
Genau das wars was ich gesucht habe.
Vor dem Speichern auf '.' gestellt und danach wieder zurück auf ','.

Funktioniert bestens.

Danke.

Dieses Forum ist wirklich Spitze.

Gruß

Volker