Discussion :

[joc02]

Bonjour,

Je suis en train de travailler sur une appli qui devrait s'installer dans des pays différents.
Mon problème se situe au niveau des dates.
J'utilise un DataSet => donc pas de souci sur l'affichage, en fonction du pays la date s'affiche comme il faut.

Par contre à la saisie, j'aurais voulu avoir le masque à appliquer. Je ne sais pas si je dois me lancer dans la décortication du TFormatSettings.ShortDateFormat pour le tranformer en mask, ou y a t il une méthode qui le retourne directement ?

Je ne souhaite pas utiliser un TDateTimePicker.

Merci d'avance pour votre aide.

[ShaiLeTroll]

TFormatSettings.ShortDateFormat n'est pas si compliqué que cela c'est soit mm/dd/yyyy ou yyyy-mm-dd ...

En trichant on peut gérer le EditMask de la forme 00/00/0000 comme ceci

Code :

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

1
2
3
4
function GetShortDateEditMask(): string;
begin
  Result := ReplaceStr(DateToStr(EncodeDate(9999,9,9)), '9', '0');
end;

[joc02]

Effectivement, j'ai également écrit une petite méthode traduisant le format de date en masque. Mais c'était pour être sûr de ne pas rater une fonction toute faite de la VCL.

Merci pour votre aide

[tourlourou]

Merci de la partager !

[joc02]

Tout t'abord "tourlourou" les phrases terminées par un "!" sont agressives et donc pas très agréable
Je n'ai pas proposé ma solution car celle de ShaiLeTroll est correcte (comme toujours ) et que la mienne et bien plus lourde.

Voici tout de même la solution que j'ai mise en oeuvre. Le contexte est le suivant, ces méthodes sont issues d'un framework que nous écrivons.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
   TYFormat = class
   public
      /// <summary>
      ///   retourne le quelette d'une date vide en fonction du format local
      ///   ex : "  /  /    "
      /// </summary>
      class function GetBlankEditDate: string; static;
      /// <summary>
      ///   retourne un masque d'édition en fonction du format local de la date
      ///   ex : !99/99/9999;1;_
      /// </summary>
      class function GetDateMask: string; static;
   end;
 
 
class function TYFormat.GetBlankEditDate: string;
var
   FormatSettingsGloabl : TFormatSettings;
   c : Char;
   sMask : string;
begin
   result := '';
 
 
   FormatSettingsGloabl := TFormatSettings.Create('');
   sMask := FormatSettingsGloabl.ShortDateFormat;
   for c in sMask do
   begin
      if (c <> FormatSettingsGloabl.DateSeparator) and (c <> '/') then
         result := result + ' '
      else
         result := result + FormatSettingsGloabl.DateSeparator
   end;
end;
 
 
class function TYFormat.GetDateMask: string;
begin
   result := GetBlankEditDate;
   result := result.Replace(' ', '9');
   result := '!' + Result + ';1;_';
end;

[tourlourou]

Merci du partage. Il y a toujours (ou presque) plusieurs méthodes pour résoudre un problème, et plus on voit d'exemples, plus facilement on imaginera la solution du prochain.

[joc02]

Ca marche, il n'y a pas de souci, je saurais pour les prochaines fois.

[SergioMaster]

Bonjour,

J'ai préféré quant à moi gérer les masques directement avec la version de traduction, j'en ai essayé plusieurs,
celle intégrée à Delphi est une horreur (point de vue perso)
j'ai du déjà parler des deux autres solutions (dklang,dgxgettext) dans le forum ( désolé flemme de rechercher vacances du cerveau en cours )