Отслеживание смены форматов.

← →
И. Павел (2009-04-10 09:18) [0]

Отслеживание смены форматов.

Здравствуйте. Глобальные переменные DecimalSeparator, ShortDateFormat и DateSeparator меняются каждый раз при изменении региональных и языковых настроек. Сейчас в программе отслеживаю смену DecimalSeparator, ShortDateFormat и DateSeparator в обработчике OnIdle. Все таки, насколько я понимаю, Idle используется, прежде всего, для отслеживания действий пользователя. Может быть, есть свой собственный способ, позволяющий отследить изменение этих параметров? Конечно, было бы лучше, если имелась возможность запретить менять эти переменные автоматически. Подскажите, пожалуйста, как можно отследить изменение этих переменных или запретить их автоматическую смену?

← →
oldman © (2009-04-10 09:41) [1]

Постоянно сравнивать прошлый запомненный тобой с нынешним системным...

← →
И. Павел (2009-04-10 10:27) [2]

Спасибо.

Сейчас я так и делаю:
procedure TMainForm.Idle(Sender:TObject; var Done:Boolean);
Begin
if DecimalSeparator<>"." then DecimalSeparator:=".";
if DateSeparator<>"." then DateSeparator:=".";
if ShortDateFormat<>"dd.mm.yyyy" then ShortDateFormat:="dd.mm.yyyy";
end;

Просто искал более рациональный способ, и все-таки нашел:

Application.UpdateFormatSettings := False;

← →
NieL © (2009-04-10 10:52) [3]

> запретить их автоматическую смену?

Можно так:

var FFormatSettings: TFormatSettings; begin GetLocaleFormatSettings(LOCALE_USER_DEFAULT, FFormatSettings); with FFormatSettings do begin DateSeparator := "."; TimeSeparator := ":"; ShortDateFormat := "dd.mm.yyyy"; end;

Потом при преобразовании строки указываешь формат, вот так:
dt := StrToDateTime("01.01.2009", FFormatSettings);

← →
И. Павел (2009-04-10 11:25) [4]

Отслеживание смены форматов. Найти похожие ветки