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

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

О ComboBox и проверке даты [D5]


Ivlex ©   (2002-10-01 23:59:00) 

Помогите!!!
У меня два вопроса:

Как сделать так, чтобы содержимое ComboBox"а нельзя было редактировать?
Как узнать, входит ли дата в интервал дат (например, входит ли 10 апреляв интервал 21 марта - 20 апреля?

Заранее благодарен.


TTCustomDelphiMaster   (2002-10-02 18:11:00) [1]

1. Используя DecodeDate и EncodeDate вставте в DateMin и DateMax год из DateTime.
2. if DateMin > DateMax then добавте 1 год к DateMax.
3. VAleksey © (02.10.02 09:10)


VAleksey   (2002-10-02 09:10:00) [2]

1. Я так понял верно только Song догадался :))
2. Просто сравнить
If Date1<ТвояДата<Date2 then ... вот так вроде должно работать.


Ivlex   (2002-10-02 08:51:00) [3]

Спасибо за ответы, но дело в том, что DateTime содержит информацию о дне, месяце и годе, DateMin и DateMax - только о дне и месяце


Song   (2002-10-02 08:26:00) [4]

1.TComboBox.Style:=csDropDownList


Kacnep   (2002-10-02 07:33:00) [5]

Добавлю к РКР...
1.1 Свойство не Энабле а Риад Онли лучше (если оно есть там)
1.2 Второй способ выбрать тип комбобокса верный.
Типа из тех значений что уже забито можно выбирать или можно вводить ручкам . В общем в хелпе по этому свой ству написано но как оно зовется не помню. Там их штук 5 или 6. В объект инспекторе посмотри...


PKT   (2002-10-02 02:20:00) [6]

1. ComboBox.Enabled := True
2. Если даты у Вас в виде переменных типа TDateTime, то
элементарно:
if (Date >= DateMin) and (Date <= DateMax) then
если даты в виде строковых переменных, то сначала преобразуйте
Date := StrToDate(StDate)

Извините за брюзжание, но это все на первых двух десятках
страниц любой книжки для начинающих.


Наверх

Титульная страница Поиск, карта сайта Написать письмо