Regions- und Spracheinstellungen ändern?

[messie]

Moin,

ich lese Dateien ein, bei denen ein Datum als String drinsteht. Je nach Rechnereinstellungen sind die ja unterschiedlich. Kann ich zur Laufzeit die globalen Regionsoptionen umstellen, z.B. von Englisch(USA) auf Deutsch(Deutschland) etc.?

Danke, Messie

[marabu]

Hallo,

die Systemeinstellungen würde ich nicht verändern. Delphi bietet dir die Möglichkeit solche Einstellungen im Programm vorzuhalten und ganz individuell einzusetzen.

Delphi-Quellcode:

var
  fs: TFormatSettings;
begin
  GetLocaleFormatSettings($0409, fs); // english settings
  ShowMessage(DateToStr(StrToDate('12/24/2007', fs)));
end;

Getippt und nicht getestet.

Grüße vom marabu

[Daniel Schuhmann]

Zitat von marabu:

die Systemeinstellungen würde ich nicht verändern.

Seh ich genauso. Aber zufällig brauche auch ich genau diese Funktion für ein anderes Programm (BVE, Japanischer Zugsimulator), das sich anders nicht zum Betrieb bewegen lässt.

Wenn Du also weißt wie es geht: Mich würd's auch interessieren.

Gruß,
Daniel

[marabu]

Hallo Daniel,

Windows bietet meines Wissens keine dokumentierte API Funktion zum Ändern der Default System Locale Settings per LCID in einem Rutsch, ohne dass ein Neustart nötig wird. Du kannst bestenfalls alle Einstellungen einzeln (SetLocaleInfo) ändern. Ich habe allerdings schon gelegentlich bewiesen, dass ich mich irren kann.

Vielleicht hilft dir bei deinem speziellen Problem das AppLocale Utility von Microsoft?

Freundliche Grüße

[nicodex]

Zitat von Daniel Schuhmann:

Aber zufällig brauche auch ich genau diese Funktion für ein anderes Programm (BVE, Japanischer Zugsimulator), das sich anders nicht zum Betrieb bewegen lässt.

Für solche Problemfälle gibt es AppLocale.

Das Setup ist etwas älter und funktioniert mit aktiviertem UAC nicht richtig. In diesem Fall eine Admin-Konsole öffnen und die MSI von dort aus ausführen.

[messie]

Zitat von marabu:

Delphi-Quellcode:

var
  fs: TFormatSettings;
begin
  GetLocaleFormatSettings($0409, fs); // english settings
  ShowMessage(DateToStr(StrToDate('12/24/2007', fs)));
end;

Im Prinzip wäre das schon genau richtig, dann brauche ich ja nur noch die aktuelle Codepage zu holen.
Aber: Warum gibt es die Routine GetLocaleFormatSettings bei mir nicht? Delphi zu alt?

Grüße, Messie

[marabu]

Hallo,

Zitat von messie:

... Delphi zu alt? ...

ich befürchte: Ja.

Du hast doch Zugang zum Quelltext der Unit SysUtils. Vielleicht kannst du dir etwas ähnliches aus GetFormatSettings() schnitzen. Du hast dann zwar immer noch nicht die thread-sicheren Überladungen der Konvertierungsfunktionen (DateToStr, ...), aber könntest nach Belieben die gewünschten Ländereinstellungen wechseln.

Freundliche Grüße