function Is24HourTimeFormat: Boolean;
var
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,
LOCALE_ITIME,'0'), 0);
end;
Here's the translation of the provided text into Russian:
Приведенный код Delphi проверяет, является ли формат времени по умолчанию системы в 24-часовом формате или нет.
Обзор того, что код делает:
Функция GetThreadLocale получает локаль для текущего потока.
Переменная Result инициализируется значением False.
Функция GetLocaleStr получает строковое представление формата времени по умолчанию системы в указанной локали. Константа LOCALE_ITIME specifies, что мы интересуемся форматом времени.
Полученная строка конвертируется в целочисленное значение с помощью функции StrToIntDef, которая возвращает целочисленное значение, если конвертация успешна, или默默认 значение (в этом случае 0) если она неудачна.
Если конвертация была успешной и целочисленное значение не равно нулю (0 <> StrToIntDef...), то это означает, что формат времени по умолчанию системы в 24-часовом формате, поэтому Result устанавливается в True.
Альтернативное решение с использованием более современного синтаксиса Delphi будет выглядеть так:
function Is24HourTimeFormat: Boolean;
var
DefaultLCID: LCID;
begin
DefaultLCID := TThread.GetThreadLocale;
Result := GetLocaleStr(DefaultLCID, LOCALE_ITIME) <> '12';
end;
В этом варианте функция GetLocaleStr возвращает строку, представляющую формат времени по умолчанию системы. Если эта строка не равна '12' (что является общим представлением 12-часового часов), то это означает, что формат времени в 24-часовом формате, поэтому Result устанавливается в True.
Функция Is24HourTimeFormat проверяет, используется ли формат времени в 24 часа на основе языка и региона, установленных в системе.
