On Fri, 21 Jan 2011, LacaK wrote:
Hi *,
consider following sample program:
var
b: array[0..255] of char; begin
if getlocaleinfoa(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, b, sizeof(b)) > 0
then
writeln('LOCALE_USER_DEFAULT:',b);
if getlocaleinfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, b, sizeof(b)) >
0 then
writeln('LOCALE_SYSTEM_DEFAULT:',b);
if getlocaleinfoa(GetThreadLocale, LOCALE_SSHORTDATE, b, sizeof(b)) > 0 then
writeln('GetThreadLocale:',b); end;
In Windows XP/Vista returns:
LOCALE_USER_DEFAULT:d. M. yyyy
LOCALE_SYSTEM_DEFAULT:d. M. yyyy
GetThreadLocale:d. M. yyyy <--IS OK
In Windows 7 returns:
LOCALE_USER_DEFAULT:d. M. yyyy
LOCALE_SYSTEM_DEFAULT:d. M. yyyy
GetThreadLocale:M/d/yyyy <--HERE IS PROBLEM
So because calls to getlocaleinfo with argument GetThreadLocale is used to
initialize DefaultFormatSettings, in Windows 7 are some locale specific
global variables (ShortDateFormat, DateSeparator etc.) initialized
incorrectly.
Has anybody else this experience ?
Yes, in Delphi 7.
Now I find:
http://qc.embarcadero.com/wc/qcmain.aspx?d=80189
http://stackoverflow.com/questions/1767946/getthreadlocale-returns-different-value-than-getuserdefaultlcid
So can you fix this problem somewhere in initialization process ?
Please file a bugreport, citing the stackoverflow answer.
Michael.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
