Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];

Вниз

О ComboBox и проверке даты   Найти похожие ветки 

 
Ivlex   (2002-10-01 23:59) [0]

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

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

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


 
PKT   (2002-10-02 02:20) [1]

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

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



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

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


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

1.TComboBox.Style:=csDropDownList


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

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


 
VAleksey   (2002-10-02 09:10) [5]

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


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

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



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

Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
4-45636
stainer
2002-07-29 22:21
2002.10.14
rxmenu


14-45500
asderg
2002-09-14 19:20
2002.10.14
Господа, (возможно коллеги) :)) неужели...


14-45561
RV
2002-09-20 14:19
2002.10.14
:)


1-45239
Th
2002-10-02 14:33
2002.10.14
Bitmap в компоненте


6-45483
Ksion
2002-08-13 03:51
2002.10.14
TWebBrowser





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский