Discussion :

[SergioMaster]

Bonjour,

Encore une maintenance rapide à faire mais je me heurte à un problème de FormatSettings.
Je dois basculer un programme d'une société à une autre au runtime . La première utilisant les formats FRENCH_FR, la seconde ENGLISH_US.
Je pourrais, bien sûr, me taper les différents formats "à la main"
DecimalSeparator:='.', etc. mais je me demande s'il n'y a pas un moyen plus efficace ?

[Andnotor]

Essaye FormatSettings := TFormatSettings.Create('en-US');

[ShaiLeTroll]

En D3, je dirais plutôt GetLocaleFormatSettings
C'est clair que si tu dois changer à la volée, peut-importe la locale de l'OS, c'est plus chiant normalement LOCALE_SYSTEM_DEFAULT (celui chargé par Delphi) devrait déjà être bon pour le FR, celui, tu peux le sauvegarder avant de permuter vers EN

LocaleNameToLCID('en-us') tu devrais trouver la locale associée pour appeler GetLocaleFormatSettings

Sinon EnumSystemLocales
Je dirais 1033 pour en-us et 1036 pour fr-fr (comme on le voit d'ailleurs les ressources d'un programme Delphi qui contient plus de truc en 1033 alors que le projet est mis en 1036)

[SergioMaster]

Merci à vous deux de répondre si vite ! Malheureusement D3 ne connait pas ainsi ces FormatSettings et cie

Entre temps, une fois posée, j'ai pu retrouver une astuce ici
du coup j'ai repris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure RegionalSettings(p,s : Word);
 function MakeLCID( lgID: Word; srtid: Word ): DWORD;
  begin
  Result := MakeLong( lgid, srtid );
  end;
 
 function MakeLangID( p, s: Word ): Word;
  begin
  Result := ( s shl 10 ) or p
  end;
 
begin
Win32Check( SetThreadLocale(MakeLCID(MakeLangID(p,s), 0)));
GetFormatSettings;
end;

et utilise ainsi RegionalSettings(LANG_FRENCH,SUBLANG_FRENCH);Je pensais n'utiliser qu'un code genre RegionalSettings(idlangue); où idlangue était directement le CLSID mais telle qu'est Win32Check ce ne semble pas possible
je vais donc utiliser deux colonnes au lieu d'une dans ma table des sociétés pour m'en sortir rapidement.

c'est donc à moins que d'autres idées ?

question subsidiaire faut-il appliquer un simple Application.UpdateFormatSettings := false; où plutôt quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.UpdateFormatSettings := true;
RegionalSettings(LANG_FRENCH,SUBLANG_FRENCH);
Application.UpdateFormatSettings := False;

par précaution ?

[ShaiLeTroll]

Euh UpdateFormatSettings , c'est pas plutôt, l'inverse ?
C'est si l'utilisateur change ses paramètres systèmes et que Delphi va le relire, je dirais donc que dans ton cas Application.UpdateFormatSettings := False; dans le DPR juste après le Initialize (ou après le passage en EN-US) pour éviter que si l'utilisateur change un truc qui cela pourrisse ton appli.

[SergioMaster]

je dirais donc que dans ton cas Application.UpdateFormatSettings := False; dans le DPR juste après le Initialize

hyper judicieux dans le dpr

[anapurna]

salut

le formatsetting dans delphi n'est qu'un record

du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
  TMonthNameArray = array[1..12] of string;
  TWeekNameArray = array[1..7] of string;
 
  TFormatSettings = record
    CurrencyFormat: Byte;
    NegCurrFormat: Byte;
    ThousandSeparator: Char;
    DecimalSeparator: Char;
    CurrencyDecimals: Byte;
    DateSeparator: Char;
    TimeSeparator: Char;
    ListSeparator: Char;
    CurrencyString: string;
    ShortDateFormat: string;
    LongDateFormat: string;
    TimeAMString: string;
    TimePMString: string;
    ShortTimeFormat: string;
    LongTimeFormat: string;
    ShortMonthNames: TMonthNameArray;
    LongMonthNames: TMonthNameArray;
    ShortDayNames: TWeekNameArray;
    LongDayNames: TWeekNameArray;
    TwoDigitYearCenturyWindow: Word;
  end;

dans sysutils tu as les fonctions InitSysLocale et GetFormatSettings qui sont super intéressantes