SetLocaleInfo

[creehawk]

Ich muss in einem Programm in dem mehrere Gleitkommawerte bearbeitet werden für zum Beispiel die Region Schweiz den Dezimalseparator von Punkt auf Komma stellen und am Programmende natürlich wieder zurück.

Ich habe das mal so gemacht, hier noch mit der entsprechenden Anzeige was eingestellt ist und was dann eingestellt wurde, steht in der FormCreate:

Delphi-Quellcode:

 
  MyDecimal:=StrAlloc(10);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SDECIMAL,MyDecimal,10);
  Showmessage('System decimal is: '+ MyDecimal); // aktuell ist hier ist jetzt der Punkt gesetzt

  Application.UpdateFormatSettings := True;
  SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, ',');
  Application.UpdateFormatSettings := False;

  MyDecimal:=StrAlloc(10);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SDECIMAL,MyDecimal,10);
  Showmessage('System decimal is: '+ MyDecimal); // aktuell ist hier ist jetzt das Komma gesetzt

Funktioniert also. Auch die händische Prüfung in den Regionseinstellungen zeigt das korrekt an. Aber das Programm nörgelt im weiteren Verlauf dann rum von wegen kein gültiger Gleitkommawert wegen dem Punkt.

Bis ich das Programm nochmal starte. Dann geht es.
Also nehme ich mal an ich muss dem Programm noch explizit Bescheid sagen.
Aber wie? Oder ist was anderes falsch?

creehawk

p.s. Es sind geschätzt 90 Änderungen die betroffen wären. Da würde würde ich mir das Stringreplace gerne sparen.