Regional & language options ...

[Rimantas]

Hi !

How to detect from system what settings are for decimal symbol and digit grouping ? Any DLL or registry call ? It's some problem with other programs with that , so I'll be thankfull for any help .

With best regards !

[Rimantas]

Hi !

How to detect from system what settings are for decimal symbol and digit grouping ? Any DLL or registry call ? It's some problem with other programs with that , so I'll be thankfull for any help .

With best regards !

Hi , again !

I found solution for that . Sample :

Code: Select all  Expand view

function read_reg()
local uVar
local aRet := {}
local oReg
#define  HKEY_CURRENT_USER       2147483649
oReg := TReg32():New( HKEY_CURRENT_USER, "Control Panel\International" )
uVar := oReg:Get( "sMonDecimalSep", " " )
if uVar # NIL
   aadd( aRet, uVar )
   uVar := oReg:Get( "sMonThousandSep", " " )
   aadd( aRet, uVar )
endif
oReg:Close()
return( aRet )


Works fine .

Regards !

[James Bott]

Rimantas,

Thanks for posting your solution.

James

[Rimantas]

Rimantas,

Thanks for posting your solution.

James

Oh ! I did mistake ! After some test I found that this is correct :

Code: Select all  Expand view

function read_reg()
local aRet := {}
local oReg := TReg32():New( 2147483649, "Control Panel\International" )
aadd( aRet, alltrim( oReg:Get( "sDecimal",  " " ) ) )
aadd( aRet, alltrim( oReg:Get( "sThousand", " " ) ) )
oReg:Close()
return( aRet )


It must be sDecimal & sThousand .

Regards !