Verständnisfrage zu TFormatSettings

[Der schöne Günther]

Sehr gute Absicht, es nicht wie Embarcadero zu machen und nicht auf deutschen Systemen z.B. in XML-Dateien plötzlich "3,14" statt "3.14" zu schreiben!

Ich würde dir nur empfehlen, dich an EN-US zu orientieren. Macht jeder so. Du kannst, auf Windows, im TFormatSettings-Konstruktor auch LOCALE_INVARIANT als Parameter angeben, das entspricht, soweit ich weiß, EN-US.

[Sir Rufo]

Zitat von Der schöne Günther:

Ich würde dir nur empfehlen, dich an EN-US zu orientieren. Macht jeder so. Du kannst, auf Windows, im TFormatSettings-Konstruktor auch LOCALE_INVARIANT als Parameter angeben, das entspricht, soweit ich weiß, EN-US.

Wieso das denn? Nur weil alle das so machen?

Da bin ich doch wohl zu einfach organisiert, denn ich baue mir so ein TFormatSetting exakt nach der Vereinbarung auf und mache das nicht abhängig von irgendwelchen diffusen Änderungen, die irgendwie von aussen die Anwendung beeinflussen.

[freejay]

Zitat von Der schöne Günther:

Du kannst, auf Windows, im TFormatSettings-Konstruktor auch LOCALE_INVARIANT als Parameter angeben ...

Das würde ich auch machen, wenn es sich um ein neues Programm handeln würde. Da es aber schon lange besteht und jetzt (Stichwort "internationale Zusammenarbeit") auch in anderen Ländern benutzt order evtl. nur supported werden muss, müssen überall die deutschen Einstellungen für Datumswerte gelten.

Wie's scheint funktioniert es jetzt damit:

Delphi-Quellcode:

  fs := TFormatSettings.Create('de-DE');
  fs.DateSeparator := '.';
  fs.TimeSeparator := ':';
  fs.ShortDateFormat := 'dd/MM/yyyy';
  fs.LongTimeFormat := 'hh:mm:ss';

Dann auf zum nächsten Problem...

[A.Griffin]

Ich habe ein ähnliches Problem. Ich habe vorher in Delphi 7 in meiner MainForm einfach im FormCreate : DecimalSeparator := '.'; gesetzt und das hat es dann für alle Units auch gemacht. Jetzt habe ich meine Software für Delphi 10.2 umgeschrieben und bekomme es nicht hin, dass StrToFloat geht. Ich gebe in meinem Beispiel Trunc(StrToFloat(edtXStart.Text) * 10); ein. Wobei gerade edtXStart.Text := '61.0' sind. Es sollte am Ende also 610 rauskommen. Ich bekomme aber immer "Exception class EConvertError with message ''61.0' is not a valid floating point value'". Wie kann ich am Einfachsten in Delphi 10.2 einmal für alle Units in meinem Projekt den DecimalSeparator festlegen? Die Vorschläge die hier genannt wurden habe ich in meiner MainForm (in FormCreate) probiert und es hat bei der Funktion die in einer anderen Form ist nichts geändert.

[a.def]

Schon im FormCreate...

Delphi-Quellcode:

  fs := TFormatSettings.Create;
  fs.DecimalSeparator := '.';

probiert und dann...
StrToFloat(edtXStart.Text, fs) ?

Ist wahrscheinlich total falsch aber so klappt es bei mir.

Oder eben im FormCreate
FormatSettings.DecimalSeparator := '.'; und dann
StrToFloat(edtXStart.Text)

[A.Griffin]

Ich habe jetzt einfach in der Unit wo ich StrToFloat brauche
initialization
System.SysUtils.FormatSettings.DecimalSeparator := '.';

genutzt.

[Fritzew]

Zitat von A.Griffin:

Ich habe jetzt einfach in der Unit wo ich StrToFloat brauche
initialization
System.SysUtils.FormatSettings.DecimalSeparator := '.';
genutzt.

Achtung!! Du musst dann aber auch noch
Application.UpdateFormatSettings := false; setzen. Ansonsten werden die Formatsettings überschrieben wenn die Anwendung eine WM_WININICHANGE oder RM_TaskbarCreated
erhält.