Discussion :

[andre corbi]

Je voulais changer certains paramètres par défaut (dates, séparateurs décimaux…). J’ai trouvé comment faire. Enfin, je pense…
Je place donc une variable fs dans mes var…

var
Form1: TForm1;
fs : TFormatSettings;
…

et mes changements dans un « initialization » à la fin de la formcreate.
Mais lors de la compilation, j’ai "UpdateFormatSettings is not portable" !

Et surtout, aucun changement dans les paramètres !
Que faire ?

[FOCUS77]

Bonjour

Si c'est juste pour changer les paramètres locaux tu peux utiliser cette méthode.

//uses windows

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDECIMAL, '.');
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SCURRENCY, 'EURO');
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, '/');
end;

tu trouvera les paramètres ici: https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

[andre corbi]

Ohhh
En mettant windows dans mes Uses et "SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, '/');" dans mon Initialization, j'ai une multitude d'erreurs qui surviennent...
J'ai trouvé sur ce forum "...DefaultFormatSettings est en lecture seule..."
Je vais donc écrire quelques lignes pour formater ma date comme j'ai envie
Mais si vous avez d'autres idées ? Merci...

[BeanzMaster]

Salut effectivement il faut utiliser DefaultFormatSettings

Code :

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

1
2
3
4
5
6
7
8
9
function GetDecimalSeparator: Char;
begin
  Result := DefaultFormatSettings.DecimalSeparator;
end;
 
procedure SetDecimalSeparator(AValue: Char);
begin
 DefaultFormatSettings.DecimalSeparator := AValue;
end;

sinon dans l'unité sysutils on peux utiliser FormatSetting qui fait référence à DefaultFormatSettings -->FormatSettings : TFormatSettings absolute DefaultFormatSettings;

Code :

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

1
2
3
4
5
6
7
8
9
10
  var
    S: String;
    c: CHAR;
  begin
    c := SysUtils.FormatSettings.DecimalSeparator;
    SysUtils.FormatSettings.DecimalSeparator := '.';
    S := Trim(ReadLine);
    result := StrToFloat(S);
    SysUtils.FormatSettings.DecimalSeparator := c;
  end;

[FOCUS77]

Ohhh
En mettant windows dans mes Uses et "SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, '/');" dans mon Initialization

Non!
il ne faut pas insérer SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, '/') dans Initialization mais dans l'evenement OnCreate()
de la Forme principale.

Code :

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

1
2
3
4
5
6
procedure TMAINFORM.FormCreate(Sender: TObject);
begin
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDECIMAL, '.');
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SCURRENCY, 'EURO');
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, '/');
end;

[DomDA91]

...
Je vais donc écrire quelques lignes pour formater ma date comme j'ai envie
Mais si vous avez d'autres idées ? Merci...

Plutôt que de réinventer l'eau chaude et sans chambouler les formatages par défaut, il y a aussi les formes étendues des fonctions de conversion StrToDate ou DateToStr qui disposent d'un paramètre supplémentaire FormatSettings de type TFormatSettings (la variable fs telle que définie plus haut est de ce type et pourrait convenir).

Edit : Cette forme étendue avec paramètre TFormatSettings existe aussi pour de nombreuses autres routines de conversion ou de formatage de l'unité Sysutils.

[andre corbi]

Voilà..
J'ai donc inséré "windows" dans les uses, mis "SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SDATE, '/');" dans mon Initialization et corrigé quelques erreurs (suite à l'introduction de Windows dans les Uses. Ex : "Beep;" qui est devenu "sysutils.beep;")
Et tout va bien pour les séparateurs de dates...
Pour les autres possibilités, merci à Focus77 pour le lien : https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
Merci