Decimalseparator... WinXP vs. Win7???

[haraldr]

Zunächst vielen Dank für die Antworten.

Ausprobieren kann ich es erst morgen, wenn ich wieder die Gelegenheit habe, auf Win7 zu testen. Wir haben noch überwiegend WinXP im Einsatz.

Harald

[haraldr]

So...

Es war eine schwere Geburt.

Ich habe die formatierte Darstellung von Zahlenwerten auf 2 Versionen von Windows 7 ausprobiert.

Die Starter-Version verhält sich wie WindowsXP, dort werden also die Ländereinstellungen des Systems ohne Murren von meiner in Delphi erstellten Software erkannt.

Unter Windows 7 Professional 64bit könnte die Antwort auf den Lösungsvorschlag mit der temporären Umstellung der Ländereinstellungen von Radio Jerewan stammen: Im Prinzip schon...

Da ich zunächst als normaler Benutzer zugange war, brachte die Änderung der Ländereinstellungen keine Besserung. Seltsamerweise zeigte auch mein in Delphi erstelltes Tool trotz English(USA) weiterhin das Komma als Decimalseparator an.

Delphi-Quellcode:

  GetLocaleFormatSettings(GetSystemDefaultLCID, FSettings);
  Edit1.Text:=FSettings.DecimalSeparator;

Als Administrator angemeldet funktionierte der vorgeschlagene Workaround auf Anhieb.
Neuer Reboot... Anmeldung als normaler Benutzer... gleiches Problem.

Erst nachdem ich sämtliche Kombinationen aus Administrator/normaler Benutzer, mit und ohne zwischenzeitliche Reboots durchprobiert hatte, funktionierte plötzlich die Darstellung bzw. das Erkennen des korrekten (deutschen) Zahlenformats... Auch nach einem kompletten Neustart des Systems und Anmeldung als normaler Benutzer.

Dem Endanwender ist eine solche Vorgehensweise vermutlich nicht vermittelbar.
... und ich kann leider nicht reproduzierbar nachvollziehen, welche Wechsel der Ländereinstellungen unter welchem Benutzeraccount ich ausgeführt habe, bevor mir die gewünschten Einstellungen gelungen sind.

Trotzdem mochmals vielen Dank für den Tipp.

Harald

[user0815]

Hier ist das ganze gut beschrieben: http://www.delphipraxis.net/156447-d...lsettings.html

Delphi-Quellcode:

uses Registry;

{$R *.dfm}

function Win7LocaleCheck : String;
var
  regist : TRegistry;
  s : String;
begin
  s := '';
  regist := TRegistry.create();
  try
    regist.RootKey := HKEY_CURRENT_USER;
    if regist.Openkey('\Control Panel\International', false) then
    begin
      s := 'Locale: ' + regist.ReadString('Locale');
      s := s + '/ LocaleName:' +regist.ReadString('LocaleName');
    end;
    regist.CloseKey;
  finally
    regist.Free;
  end;

  Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Win7LocaleCheck);
end;