Содержание материала

Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.

 Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":

Code:

........

function TForm1.GetLocaleInformation(Flag: Integer): String;

var

pcLCA:    Array[0..20] of Char;

begin

if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19) <= 0 ) then begin

   pcLCA[0] := #0;

end;

Result := pcLCA;

end;

........

  

Пример использования функции:

Code:

........

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));

end;

........

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить