function GetTimeZone: string;
var
TimeZone: TTimeZoneInformation;
begin
GetTimeZoneInformation(TimeZone);
Result := 'GMT ' + IntToStr(TimeZone.Bias div -60);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := GetTimeZone;
end;
Here's the translation of the code into Russian:
Код программирования на языке Delphi, который получает информацию о текущем часовом поясе и отображает ее в лейбле на форме.
Разбор кода:
Функция GetTimeZone не принимает параметров и возвращает строку, представляющую собой текущее время зоны. Она использует функцию API GetTimeZoneInformation, чтобы получить информацию о времени зоне, которая хранится в переменной TimeZone.
Переменная Result присваивается значение 'GMT ' + IntToStr(TimeZone.Bias div 60). Это конвертирует偏ос (целое число, представляющее собой смещение от UTC в секундах), в строку и добавляет префикс "GMT" к ней. Например, если偏ос равен 3600 (что соответствует смещению на 1 час), то полученная строка будет "GMT +01".
Процедура Button1Click вызывается при клике кнопки на форме. Она вызывает функцию GetTimeZone и присваивает результат свойству Caption лейбла, названного label1.
Имproved версия кода:
function GetTimeZone: string;
var
TimeZone: TTimeZoneInformation;
begin
if GetTimeZoneInformation(TimeZone) = TIME_ZONE_ID_UNKNOWN then
Result := 'Unknown time zone'
else
Result := Format('GMT %+02d', [TimeZone.Bias div 60]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := GetTimeZone;
end;
Изменения:
Добавлена проверка для обработки случая, когда функция GetTimeZoneInformation возвращает неизвестный идентификатор времени зоны. В этом случае функция вернет строку "Unknown time zone".
Используется функция Format, чтобы конвертировать смещение в строку в формате "GMT +/-HH", где HH - часовой offset от UTC. Это более читаемо, чем оригинальный код.
Примечание: Константа TIME_ZONE_ID_UNKNOWN определена в документации Windows API, но она не включается в стандартную библиотеку Delphi. Вам может потребоваться включить unit Windows и определить эту константу самостоятельно, если вы используете более старую версию Delphi, которая не имеет ее встроенной.
В статье предлагается функция на языке Delphi, которая выводит временную зону в формате GMT с учетом часового пояса.
