Probleme mit FormatSettings.DecimalSeparator

[HolgerX]

Das ist ein bekannte Bug von Windows7.

Wenn Windows 7 als Englich installiert wurde und dann das deutsche Sprachpaket darüber kommt es zu diesem Problem.

Es gibt unter Windows 7 einmal die System-Sprache und einmal die User-Sprache.

Auch wenn in deinem Profil DE eingestellt ist und der richtige Dezimalseparator angezeigt wird, nimmt u.a. Delphi nicht die User-Sprache, sondern die System-Sprache.
Vor Windows 7 gab es nur die Systemsprache.

Eine einfache Fehlerbehandlung ist, in die Spracheinstellungen zu gehen und dort "auf Standard zurücksetzen" machen.
Dann wird auch die System-Sprache richtig eingestellt und es kommt der richtige Dezimalseparator.

Der Bug wird übrigens bei einem Upgrade von Win7 auf Win10 sogar mitgenommen

Wurde hier übrigens schon behandelt:
http://www.delphipraxis.net/156447-d...lsettings.html
http://www.delphipraxis.net/160539-d...p-vs-win7.html

[t.roller]

Zitat:
ms-help://embarcadero.rs_xe7/libraries/System.SysUtils.TFormatSettings.Create.html
Ein TFormatSettings-Datensatz muss vor der Verwendung initialisiert werden. Mit Create können Sie alle Felder gemäß des angegebenen Gebietsschemas füllen.

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var FS: TFormatSettings;
begin
  FS := TFormatSettings.Create('de-DE');
  Caption:= '1'+ FS.DecimalSeparator+'00';
end;

procedure TForm1.Button12Click(Sender: TObject);
var FS: TFormatSettings; 
begin
  FS := TFormatSettings.Create('en-US');
  Caption:= '1'+ FS.DecimalSeparator+'00';
end;

[Hunni]

Zitat von t.roller:

Zitat:
ms-help://embarcadero.rs_xe7/libraries/System.SysUtils.TFormatSettings.Create.html
Ein TFormatSettings-Datensatz muss vor der Verwendung initialisiert werden. Mit Create können Sie alle Felder gemäß des angegebenen Gebietsschemas füllen.

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var FS: TFormatSettings;
begin
  FS := TFormatSettings.Create('de-DE');
  Caption:= '1'+ FS.DecimalSeparator+'00';
end;

procedure TForm1.Button12Click(Sender: TObject);
var FS: TFormatSettings; 
begin
  FS := TFormatSettings.Create('en-US');
  Caption:= '1'+ FS.DecimalSeparator+'00';
end;

Hallo

Ok, ich werde es mal ausprobieren


Gruß

Torsten

[Stevie]

Da FormatSettings eine globale Variable ist, würde ich mal untersuchen, ob nicht irgendwelcher Code, darauf herumschreibt - wurde früher durchaus gern gemacht, einfach mal temporär DecimalSeparator umändern, eine Methode aufrufen und danach wieder zurück ändern - thread sicherheit, was ist das?

[bra]

Wir hatten das Problem auch schon ein paarmal. Ich vermute hier werden irgendwelche Einstellungen (z.B. Registry) gelesen, die nicht richtig initialisiert sind. Einzige mir bekannte Lösung: Das schon erwähnte Umstellen der Sprache auf was anderes und zurückstellen auf Deutsch.

[himitsu]

Das Problem ist einfach.
Es gibt mehrere Speicherorte für diese Settings und bei einigen "vorinstallierten" Windowsen werden/wurden nicht alle Speicherorte richtig initialisiert.
Die eine API liest von da, eine andere von dort, manche Programme gehen garnicht über APIs und denken sie sind schlauer, wenn sich selber in der Registrie rumfummeln und am Ende wundert sich jemand, wenn er die "falschen" Settings ausliest.

Nach dem Ändern über den Windowsdialog steht es dann aber überall richtig drin.

Manchmal werden Speicherorte verschoben oder Neue erfunden, weil z.B. früher ein Setting global war und nun userabhängig ist ......

[Hunni]

Hi,


ich habe es jetzt ers einmal so gelöst

ich lese mir beim Programmstart den Wert aus GetLocaleChar(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, ',') aus und verwende diesen im Programm

Ich hoffe das ich damit jetzt das Problem gelöst habe.

Die Zeit wird es zeigen


Gruß

Torsten