Скачать: CL | DM;

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

← →
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]

Спасибо.

---

← →
MsGuns ©   (2006-05-26 15:37) [5]

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

---

← →
Megabyte ©   (2006-05-26 16:35) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c