Discussion :

[JP.NUAGE]

Bonjour et bon week-end !

Décidément, les accents me cherchent
J'ai codifié

Code :

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

1
2
3
4
5
6
7
8
9
10
var xMois : WideString;
.
.
xMois := FormatDateTime('mmmm yyyy', Date - 30);    // Date est aujourd'hui
ShowMessage(xMois);              //  ici je vois f?vrier 2013
showMessage(AnsitoUtf8(xMois));   //  ici je vois février 2013
xMois := AnsitoUtf8(xMois);
.
.
Label1.Caption := xMois;     // et là, je vois apparaître f?vrier 2013 !

Énervant non ?

[tourlourou]

Essaye plutôt avec 'mars' !

Pourquoi une WideString ? Il faut alors probablement utiliser UTF8ToUTF16 et inverse ; voir http://wiki.freepascal.org/LCL_Unicode_Support/fr

[alanglet]

Dans le OnCreate de la fiche principale des applications sous Windows devant afficher des dates j'ajoute:

Code :

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

1
2
  for i:=1 to 12 do //les LongMonthNames sont en Ansi dans fpc 2.4.5, 2.7.1 etc...
    FormatSettings.LongMonthNames[i]:=SysToUTF8(FormatSettings.LongMonthNames[i]);

André

[JP.NUAGE]

Réponse à tourlourou : j'adore la première phrase ! aussi
Lire cela un Dimanche matin, ça fait du bien !......
Et aussi incroyable que cela puisse paraître, avec 'mars' aucun problème !!!!!
............................
et je vais essayer, avec tout le respect que je te dois, la solution de alanglet

[JP.NUAGE]

Rien à faire, j'ai toujours le ? dans f?vrier. Alors que sera Août ?

[Ph. B.]

Bonjour,

Décidément, les accents me cherchent
J'ai codifié

Code :

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

1
2
3
4
5
6
7
8
9
10
var xMois : WideString;
.
.
xMois := FormatDateTime('mmmm yyyy', Date - 30);    // Date est aujourd'hui
ShowMessage(xMois);              //  ici je vois f?vrier 2013
showMessage(AnsitoUtf8(xMois));   //  ici je vois février 2013
xMois := AnsitoUtf8(xMois);
.
.
Label1.Caption := xMois;     // et là, je vois apparaître f?vrier 2013 !

Avec Lazarus 1.0.6 / FPC 2.6.0 sous Windows 2000,
avec Lazarus 1.1.0 / FPC 2.6.1 sous Windows XP, j'obtiens la même chose :

Code :

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

1
2
3
4
5
6
7
var xMois : WideString;
// ...
xMois := FormatDateTime('mmmm yyyy', Date - 30);
ShowMessage(xMois);              //  => f?vrier 2013
showMessage(AnsitoUtf8(xMois));   //  => février 2013
xMois := AnsitoUtf8(xMois);
Label1.Caption := xMois;     // => février 2013

Paramétrage par défaut...
Cela dit, je penserais qu'il y a un bug lors de l'initialisation des mois dans la variable DefaultFormatSettings.

[JP.NUAGE]

et y a-t-il un endroit pour éventuellement corriger ce bug ?

[tintinux]

Bonjour

J'ai l'impression que le fichier de resources qui contient les traductions en français a été laissé en ISO-8859 (utilisé dans les premières versions), alors qu'aujourd'hui Lazarus est prévu pour exploiter par défaut de l'UTF-8 (comme tout outil récent qui se respecte).

D'où l'obligation de convertir le mois en UTF8. Il faudrait soumettre ce bug dans le bugtracker, si vous le constatez encore 1.1.

Mais quand ce sera corrigé, les programmes qui font déjà cette conversion, ne vont plus afficher correctement les mois... et ça va en perturber plus d'un.

Personnellement, j'évite toujours d'utiliser les formats de dates et autres données de localisation fournies avec le compilateur. Elles doivent à mon avis être définies à l'exécution, en fonction de la langue et du système, et comme ça il y a moins de soucis.

[Ph. B.]

et y a-t-il un endroit pour éventuellement corriger ce bug ?

Au démarrage de l'application, une fois les paramètres chargés, on peut intervenir sur le contenu de la variable DefaultFormatSettings de type TFormatSettings.

Méthode courte et rapide :

Code :

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

1
2
3
4
5
6
7
8
9
procedure CorrectMonth;
begin
  DefaultFormatSettings.LongMonthNames[2] := 'Février';
  DefaultFormatSettings.ShortMonthNames[2] := 'Févr.';
  DefaultFormatSettings.LongMonthNames[8] := 'Août';
  DefaultFormatSettings.ShortMonthNames[8] := 'Août';
  DefaultFormatSettings.LongMonthNames[12] := 'Décembre';
  DefaultFormatSettings.ShortMonthNames[12] := 'Déc.';
end;

Méthode moins courte mais plus adaptable et évolutive :

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
procedure CorrectMonth;
const
  LongMonth : TMonthNameArray = ('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin',
               'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre');
  ShortMonth : TMonthNameArray = ('Janv.', 'Févr.', 'Mars', 'Avr.', 'Mai', 'Juin',
               'Juil.', 'Août', 'Sept.', 'Oct.', 'Nov.', 'Déc.');
var
  i: Integer;
begin
  for i := 1 to 12 do
  begin
    DefaultFormatSettings.LongMonthNames[i] := LongMonth[i];
    DefaultFormatSettings.ShortMonthNames[i] := ShortMonth[i];
  end;
end;

[Ph. B.]

Bonjour,

D'où l'obligation de convertir le mois en UTF8. Il faudrait soumettre ce bug dans le bugtracker, si vous le constatez encore 1.1.

C'est fait !
Bug 24029

Personnellement, j'évite toujours d'utiliser les formats de dates et autres données de localisation fournies avec le compilateur. Elles doivent à mon avis être définies à l'exécution, en fonction de la langue et du système, et comme ça il y a moins de soucis.

Je suis d'accord...

[JP.NUAGE]

Il me semble en effet que, en attendant des jours meilleurs (le printemps est proche ), je vais en effet codifier directement les mois. Pas trop compliqué et la fonction copier/coller n'a pas été créée pour ne pas servir