Discussion :

[albertgl]

bonjourà tous,

je suis debutant
sous delphi 2005 fr
os vista fr

j'affiche le jour de la semaine
avec LongDayNames[DayOfWeek(Now)]

la reponse est en francais.

je souhaite obtenir cette reponse en anglais.
c a d obtenir directement le jour en anglais.

y a t il une autre fonction qui passerait de fr a eng ?

merci à tous

[petitcoucou31]

Salut
je ne sais pas si on sait extraite une date directement dans une langue étrangère vu que ce doit être lier à la langue de ton OS.

mais tu faire faire par exemple comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
const
  FA : array[1..7] of string =
  (('Monday'),
   ('Tuesday'),
   ('Wednesday'),
   ('Thursday'),
   ('Friday'),
   ('Saturday'),
   ('Sunday'));
begin
  edit1.text:=Fa[DayOfTheWeek(Now)];
end;

[albertgl]

merci, c'est bien gentil.

mais je pensais que sous windows on pouvait
avoir les resultats directement en anglais.

sous autocad par ex tu as les commandes :
soit en francais
soit en placant le "_" avant le mot anglais pour la meme commande bien sür

merci et bien à vous

[guillemouze]

tu peux les recuperer grace au formatSettings.
Il y a surement moyen d'attaquer directement les fonctions utilisées par la fonction GetLocaleFormatSettings de la VCL, mais c'est le moyen le plus simple pour moi. a toi de voir si tu as besoin d'optimiser le truc.

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
 
  // #define MAKELCID(lgid, srtid)  ((DWORD)((((DWORD)((WORD  )(srtid))) << 16) | ((DWORD)((WORD  )(lgid)))))
  function MakeLCID(lgid:WORD; srtid:WORD):DWORD;
  var
    dwlgid, dwsrtid:DWORD;
  begin
    dwlgid:=lgid;
    dwsrtid:=srtid;
 
    Result:=(dwsrtid shl 16) or (dwlgid);
  end;
 
  // #define MAKELANGID(p, s) ((((WORD) (s)) << 10) | (WORD) (p))
  function MakeLANGID(p:WORD; s:WORD):WORD;
  begin
    Result:=(s shl 10) or (p);
  end;
 
var
  fs: TFormatSettings;
begin
  GetLocaleFormatSettings(MakeLCID(MakeLANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), SORT_DEFAULT), fs);
  //fs.LongDayNames contient ici les jours en anglais
end;

NB : les constantes sont definies dans l'unite windows