| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Megabyte ©   (2006-05-26 14:59:00) 

Пользователь вводит начальную и конечную дату в 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? Просто я не понимаю назначения половины полей. Их там так много, неужели надо определять все?

---

Megabyte   (2006-05-26 16:35:00) [1]

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

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

---

MsGuns   (2006-05-26 15:37:00) [2]

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

---

Megabyte   (2006-05-26 15:28:00) [3]

Спасибо.

---

sniknik   (2006-05-26 15:11:00) [4]

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

---

DrPass   (2006-05-26 15:09:00) [5]

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

---

tesseract   (2006-05-26 15:06:00) [6]

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

---

Наверх