So far this is what i had dig up on the topic. It made sense to post this one here since i am pretty sure somebody’s also looking for this info. Hehehe<\/p>\n
Enjoy<\/p>\n
Coffee Cup<\/p>\n
procedure SetLocaleInfoSample;
\nvar number, ds, lz;
\nbegin
\nnumber := 0.7;<\/p>\n
\/\/ Remember default number settings
\nds := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL);
\nlz := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO);<\/p>\n
\/\/ Log a number using default settings
\nLog.Message( FloatToStr(number) );<\/p>\n
\/\/ Log a number using a different decimal separator
\nSetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, ‘,’);
\nLog.Message( FloatToStr(number) );<\/p>\n
\/\/ Log a number without the leading zero
\nSetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, ‘0’);
\nLog.Message( FloatToStr(number) );<\/p>\n
\/\/ Restore original settings
\nSetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, ds);
\nSetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, lz);
\nend;<\/p>\n
{
\nThe function produces the following output for US English locale:<\/p>\n
0.7
\n0,7
\n,7
\n}<\/p>\n
procedure ChangeShortDate;
\nvar strOldShortDate;
\nbegin
\n\/\/ Get current short date format
\nstrOldShortDate := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE);<\/p>\n
if not SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, ‘yyyy\/MM\/dd’) then
\nLog.Error(‘Could not change short date format.’);<\/p>\n
\/\/ Restore original short date format
\nif not SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, strOldShortDate) then
\nLog.Error(‘Could not restore original short date format.’);
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"
So far this is what i had dig up on the topic. It made sense to post this one here since i am pretty sure somebody’s also looking for this info. Hehehe Enjoy Coffee Cup procedure SetLocaleInfoSample; var number, ds, lz; begin number := 0.7; \/\/ Remember default number settings ds := GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL); lz … <\/p>\n