Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Вниз
Форматирование строки в дату Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c
