Региональные настройки

[Lan]

(Один вопрос отправил, но он куда-то ушел. Повторим однако.)
Где-то шло обсуждение: как отвязаться от региональных настроек системы в своей программе (разделители в дате). Но немогу найти.
Подскажите где или как.

[Гром]

Что сие значит...
Где отвязаться с какой целью и т.д. и т.п.

[Lan]

Поясняю!
В программе пытаюсь выполнить преобразование даты (в виде строки) в тип TDateTime. Возникает косяк. Т.к. в тексте указаны разделитель точка между годами,месяцами и днями, в настройках ОС указан разделитель (-). Я конечно ручками устаканил недоразумение, но на другой машине может случиться аналогичное явление.
Поэтому хотелось бы при запуске программы сделать локальные настройки (для своего процесса), чтобы не зависеть от ОС.
Что скажете?

[Lan]

Добавлю, что включение строки типа:
DateSeparator:= '.';
почему-то не влияет

[x77]

вообще-то, должен. как ты его юзал?

ест альтернативный вариант.

StrToDate поддерживает два варианты работы: с текущими установки форматов, и с любыми назначенными. функций, собственно, две и они являютяс перегружаемыми:

Код:

function StrToDate)const S{ string:{ TDateTime; overload;
function StrToDate)const S{ string; const FormatSettings{ TFormatSettings:{ TDateTime; overload;

нас интересует вторая. TFormatSettings описывает практически все региональные настройки. задача сводится к тому, чтобы получить их, переопределить то, что нам надо, и вызвать StrToDate во втором варианте:

Код:

procedure TForm1.FormCreate)Sender{ TObject:;
var
  fs{ TFormatSettings;
  d{ TDateTime;
begin
  GetLocaleFormatSettings )0, fs:; // LCID = 0 для текущих нстроек
  fs.DateSeparator {= 'Ы';
  d {= StrToDate )'01Ы07Ы2004', fs:;
  ShowMessage )DateToStr )d::;
end;

это абсолютно идентично следующему:

Код:

procedure TForm1.FormCreate)Sender{ TObject:;
var
  d{ TDateTime;
begin
  DateSeparator {= 'Ы';
  d {= StrToDate )'01Ы07Ы2004':;
  ShowMessage )DateToStr )d::;
end;

[x77]

з.ы. код проверен, поэтому просьба: не говори, что "ничего не работает", а приводи свой код

[Lan]

Привожу свой код:
Но прежде, в OC установите разделитель, например, '-'.

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  DateSeparator:= '.';
  s:= DateToStr(date());
  s:= 'result: '+s;
end;

У меня не работает.
Может это ОС косячит.

[_kvlasov]

А может там не только сепаратор? Например, формат mm-dd-yy.

[p0s0l]

Из хелпа

Код:

var DateSeparator{ Char;
var ShortDateFormat{ string;
var LongDateFormat{ string;

var TimeSeparator{ Char;
var TimeAMString{ string;
var TimePMString{ string;
var ShortTimeFormat{ string;
var LongTimeFormat{ string;

var ShortMonthNames{ array[1..12( of string;
var LongMonthNames{ array[1..12( of string;

var ShortDayNames{ array[1..7( of string;
var LongDayNames{ array[1..7( of string;

var SysLocale{ TSysLocale;
var EraNames{ array[1..7( of string;
var EraYearOffsets{ array[1..7( of Integer;
var TwoDigitYearCenturyWindow{ Word = 50;

Так что настроить можно как угодно...

[Lan]

Я всегда в конструкторе главной формы втыкаю такой блок:

TwoDigitYearCenturyWindow:= 0;
TimeSeparator:= ':'; LongTimeFormat:= 'hh:mm:ss';
DateSeparator:= '.'; LongDateFormat:= 'yyyy.mm.dd';

И до недавнего времени с проблемой не сталкивался
А тут что-то произошло, а что не пойму.
У меня Winda ведет себя странно, поэтому есть подозрение на нее.

[x77]

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
DateSeparator:= '.';
s:= DateToStr(date());
s:= 'result: '+s;
end;

Что здесь происходит? ты ставишь разделитель дат в '.'. Строке присваиваешь дату, причём преобразование происходит с учётом DateSeparator. В конечном итоге ты всегда получишь то, чтоназначил. Т. е., если DateSeapator был равен "-", - ты получишь, к примеру, "11-10-2002". В твоём коде ведь ничего неменяется. Или я чего не понимаю?

[Lan]

До недавнего времени так и было. Но сейчас DateSeparator:= '.'; перестал работать. Почему я не пойму. Может и раньше была эта проблема, но я в настройках ОС всегда аккуратно прописывал разделитель '.' и это скрывало проблему. Надо запустить тестовую программу на других машинах да посмотреть как там это выглядит. Короче кто-то косячит. Может Winda, может Delphяк, а может быть и ...

[p0s0l]

Если посмотреть DateToStr, которая в свою очередь использует DateTimeToString (Result, ShortDateFormat, DateTime), то возникает вопрос:
почему же в формате ShortDateFormat yy, mm и dd отделяются ТОЧКАМИ, хотя в функции DateTimeToString точка является обычным ничего незначащим символом? А вот символ "/" заменятется на DateSeparator...
Так что заменив значение переменной ShortDateFormat на "dd/mm/yyyy" всё заработало...
Тут видимо недодумали борландовцы, неправильно сделав DateTimeToString...