L'utilisation de DefaultFormatSettings

Bonjour à tous

Je veux utiliser ce code pour changer les variables locales du panneau de configuration,
mais rien ne change.
dois-je oublier quelques choses?

Code:

---

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin sysutils.DefaultFormatSettings.DateSeparator:='-'; sysutils.DefaultFormatSettings.DecimalSeparator:='.'; end;

---

Laz: 1.6

A ma connaissance, l'utilisation de DefaultFormatSettings ne permet en aucun cas la modification des paramètres locaux concernés au sein du système (i.e. de Windows).

Pour cela, il faut passer par le panneau de configuration ou bien utiliser l'API Windows SetLocaleInfo: cf. https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

A noter que cela n'est pas recommandé parce que la modification concerne alors toutes les applications (un envoi généralisé du message WM_SETTINGCHANGE est d'ailleurs alors souhaitable).

@FChrisF

Citation:

---

A ma connaissance, l'utilisation de DefaultFormatSettings ne permet en aucun cas la modification des paramètres locaux concernés au sein du système (i.e. de Windows).

---

Enfin c'est ce que j'ai constaté, DefaultFormatSettings est en lecture seule.

Citation:

---

Pour cela, il faut passer par le panneau de configuration.

---

je laisse ce choix à l'utilisateur.;)

Citation:

---

A noter que cela n'est pas recommandé parce que la modification concerne alors toutes les applications (un envoi généralisé du message WM_SETTINGCHANGE est d'ailleurs alors souhaitable).

---

J'ai donc adapté mon application à l'environnement système.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TFArchPmt.FormCreate(Sender: TObject); var d1:TdateTime; sty,sd:string; y,m,d:Word; begin d1:=Now; DecodeDate(d1,y,m,d); sd:=DefaultFormatSettings.DateSeparator; sty:='01'+sd+'01'+sd+inttostr(y); DateTimePicker1.Date:=Strtodate(sty) ; DateTimePicker2.Date:=Date ; end;

---

merci beaucoup.

Je me trompe, ou bien vous souhaitez simplement obtenir le 1er janvier de l'année en cours (mais le code posté n'est peut-être qu'un extrait d'un code plus important).

Vous pourriez utiliser la fonction EncodeDate dans ce cas, ainsi que la fonction YearOf de DateUTils ou bien la fonction CurrentYear de SysUtils:

Exemple:

Code:

---

1 2	DateTimePicker1.Date := EncodeDate(CurrentYear(), 1, 1);

---

Bonjour

effectivement la date de début est 01-01 de l'année en cours.

merci pour la fonction: EncodeDate(CurrentYear(), 1, 1) qui facilite bien la tâche.