如何获得系统的区域设置？

Question

我想得到系统的数字分组符号（系统默认为";"），我该用那个函数呢？

Answer 1

注册表中HKEY_CURRENT_USER\Control Panel\International下，具体是什么你自己看吧

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var pp: pChar;
begin
  GetMem(pp,10);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SLIST,pp,10);
  ShowMessage(pp);
end;

Answer 3

有没有直接调用api的？为了这点小事添加registry单元没有必要吧。

Answer 4

哈哈，我今天找到了一个更方便简洁的办法：
SysUtils中的变量ThousandSeparator。