Статьи
|
Код ниже использует модуль SysUtils, чтобы очень просто определить какой язык по умолчанию используется операционной системой.
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i:= Languages.IndexOf(SysLocale.DefaultLCID);
ShowMessage(Languages.Name[i]);
end;
Класс TLanguages также содержит другую информацию в свойствах:
- Count - количество поддерживаемых системой локалей
- Ext - стандартное трехбуквенное обозначение для локали. Например, код Ext[IndexOf($0409)] вернет строковое значение ENU. Свойство - массив, начинающийся с нуля.
- Name - стандартное для Windows имя локали. Например, код Name[IndexOf($0409)] вернет строковое значение English (United States). Свойство - массив, начинающийся с нуля.
|