Discussion :

[FOCUS77]

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 :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  sysutils.DefaultFormatSettings.DateSeparator:='-';
  sysutils.DefaultFormatSettings.DecimalSeparator:='.';
end;

Laz: 1.6

[FChrisF]

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

[FOCUS77]

@FChrisF

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.

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

je laisse ce choix à l'utilisateur.

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 :

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

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.

[FChrisF]

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 :

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

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

[FOCUS77]

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.