Verständnisfrage zu TFormatSettings

[mm1256]

Zitat von Artur:

Zitat von Sherlock:

Wenn da was geändert wurde, ist das so, weil der Anwender es so wollte. Das muss man respektieren, sonst bekommt man unter Umständen zornige Anrufe...
Sherlock

Ich hatte dazu aber mal einige Probleme, ohne dass die User herumgestellt haben, weil Windows 7 da einen fiesen Bug hat/hatte:
Mir wurden auf ein paar Systemen auch englische Datumsangaben zurückgeliefert, obwohl die Laptops alle auf Deutsch eingestellt waren und sogar in den Einstellungen zur Region die richtigen Formate angezeigt haben.
Wenn man dann in den Systemeinstellungen irgendeine andere Regionaleinstellung gewählt hat (mit übernehmen/speichern) und hat danach das Ganze wieder auf deutsche Regionaleinstellungen zurückgestellt, dann hat es gepasst.

Ich habe es dann auch so gelöst, die Formateinstellungen vorzugeben und nicht von Windows zu beziehen.

Es gab dazu hier im Forum auch eine Diskussion meine ich.

Dieser "fiese Bug" kam damals nach meinen Erkenntnissen nicht von Windows, sondern von den Installations-Images der PC's. Besonders HP-PC's und Dell-Laptops/Notebooks waren betroffen. Die klatschen für den internationalen Vertrieb ein Image auf die Festplatte und bei der ersten Inbetriebnahme werden bzw. wurden damals die Ländereinstellungen nicht korrekt übernommen. Mit dem Ändern auf irgend eine andere Ländereinstellung und anschließendem Zurücksetzen auf die deutschen Einstellungen war das dann beseitigt. Hat uns damals sehr viel Zeit (und Stress mit Kunden) gekostet, und darum ist das Überschreiben und/oder korrigieren/überprüfen der Windows-Settings für Programme die ausschließlich in DE laufen m.E. die beste Option, solche Probleme auch zukünftig auszuschließen.

[Uwe Raabe]

Zitat von Der schöne Günther:

Ich Hinterwäldler bin noch auf XE7, da gibt es das noch nicht

Tempus fugit!

[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.