Delphi 使用 TJclLocaleInfo

需先安裝 JEDI VCL for Delphi

uses
  JclLocales;

procedure TForm1.FormCreate(Sender: TObject);
var
  info: TJclLocaleInfo;
begin
  info := TJclLocaleInfo.Create;
  try
    with Memo1.Lines do
    begin
      Clear;
      Add('CountryCode: ' + inttostr(info.CountryCode));
      Add('CodePageANSI: ' + inttostr(info.CodePageANSI));
      Add('EnglishLangName: ' + info.EnglishLangName);
      Add('NativeLangName: ' + info.NativeLangName);
      Add('LocalizedLangName: ' + info.LocalizedLangName);
      Add('LocalizedCountryName: ' + info.LocalizedCountryName);
      Add('ISOAbbreviatedLangName: ' + info.ISOAbbreviatedLangName);
      Add('ISOAbbreviatedCountryName: ' + info.ISOAbbreviatedCountryName);
      Add('DefaultLanguageId: ' + inttostr(info.DefaultLanguageId));
      Add('LanguageIndentifier: ' + info.LanguageIndentifier);
    end;
  finally
    info.Free;
  end;
end;
{
CountryCode: 886
CodePageANSI: 950
EnglishLangName: Chinese
NativeLangName: 中文(繁體)
LocalizedLangName: 中文 (台灣)
LocalizedCountryName: 台灣
ISOAbbreviatedLangName: zh
ISOAbbreviatedCountryName: TW
DefaultLanguageId: 404
LanguageIndentifier: 0404
}