Форматирование строки в дату

← →
Megabyte © (2006-05-26 14:59) [0]

Пользователь вводит начальную и конечную дату в TMaskEdit.
надо проверять, чтобы конечная дата была больше начальной.
Дата записывается в формате yyyy-mm-dd
Соответственно, деляю свои FormatSettings с установкой своего разделителя даты.
procedure Tfrm_Main.me_EndExit(Sender: TObject); var settings : TFormatSettings; begin Settings.DateSeparator := "-"; if StrToDate(me_end.Text, settings) > StrToDate(me_begin.Text, settings) then btn_Otchet.Enabled := false; end;

Ругается на Access Violation... Почему? Мне что, требуется определить все поля записи TFormatSettings? Просто я не понимаю назначения половины полей. Их там так много, неужели надо определять все?

← →
tesseract © (2006-05-26 15:06) [1]

ну формат дат определить желательно, а то не понятно.
и интересно что таки на вход попадает.

← →
DrPass © (2006-05-26 15:09) [2]

Там должна быть функция с устрашающим названием вроде GetCurrentLocaleFormatSettings (наизусть не помню, но что-то похожее) :)
Она заполнит settings текущими значениями, а потом просто измени то, что тебе нужно.

← →
sniknik © (2006-05-26 15:11) [3]

procedure Tfrm_Main.me_EndExit(Sender: TObject); var settings : TFormatSettings; begin GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, settings); Settings.DateSeparator := "-"; ....

← →
Megabyte © (2006-05-26 15:28) [4]

Спасибо.

Провокационный вопрос:
Если уж так не угодил Датапикер, то что крамольного в StrToDateDef ?

> MsGuns © (26.05.06 15:37) [5]
> Провокационный вопрос:Если уж так не угодил Датапикер, то
> что крамольного в StrToDateDef ?

Это мне? %)
Да хз.

Форматирование строки в дату Найти похожие ветки