Application.UpdateFormatSettings -> UpdateFormatSettings is not portable

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" !
Pièce jointe 326236
Et surtout, aucun changement dans les paramètres !
Que faire ?

Bonjour

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

//uses windows

Code:

---

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

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...

Salut effectivement il faut utiliser DefaultFormatSettings

Code:

---

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:

---

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;

---

Citation:

---

Envoyé par andre corbi

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:

---

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;

---

Citation:

---

Envoyé par andre corbi

...
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.

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