[Hetrue]

Как сделать так что бы программа учитывала высокосные года? А так же как использовать ComboBox, вместо Edit

[Lucky192]

Пользуйтесь стандартными функциями (EncodeDate, DecodeDate и множество других на все случаи) - там все уже учтено.

С ComboBox можете работать так же как с Edit - у него тоже есть свойство Text. При желании можно заполнить список Items и переключать их свойством ItemIndex (в момент изменения будет меняться также и Text). Ну и свойство Style - если выберете csDropDownList - сможете только выбирать из списка - вручную ничего ввести будет нельзя. По умолчанию Style=csDropDown - можно или ввести вручную или выбрать из списка.

[Hetrue]

а можно пример кодировки с высокосным годом? буду очень признателен

[Lucky192]

Объясните подробнее что хотите... Это?:

Код:

uses ..., DateUtils;  
...
  ShowMessage( IntToStr( DaysInYear( EncodeDate(2008,01,01) ) )); // 366 дней - високосный год
  ShowMessage( IntToStr( DaysInYear( EncodeDate(2011,01,01) ) )); // 365 дней - обычный год

А то есть еще функция IsLeapYear (модуль SysUtils), которая просто скажет является ли данный год високосным.

[Hetrue]

Благодарю!!

[Hetrue]

А если через SysUtils, то как это будет выглядить? Заранее благодарю

[Lucky192]

Код:

if IsLeapYear(2008) then ShowMessage('високосный') else ShowMessage('невисокосный');

[Hetrue]

всегда выдаёт что высокосный год ><

[Ildar-tsr]

Сообщение от Hetrue

всегда выдаёт что высокосный год ><

Так ты в скобки нужный год подставляй:

Код:

IsLeapYear(СЮДА НУЖНЫЙ ГОД!!!);

[Hetrue]

Сообщение от Ildar-tsr

Так ты в скобки нужный год подставляй:

Код:

IsLeapYear(СЮДА НУЖНЫЙ ГОД!!!);

так там стоит высокосный , 2008 высокосный

[Ildar-tsr]

Сообщение от Hetrue

так там стоит высокосный , 2008 высокосный

Ну так если стоит 2008ой и он високосный, чего ты жалуешься что все время выдает високосный?

[Hetrue]

Сообщение от Ildar-tsr

Ну так если стоит 2008ой и он високосный, чего ты жалуешься что все время выдает високосный?

так мне надо что бы какой бы не выбрал я год, он показывал что , либо выскоксный, либо нет

[Ildar-tsr]

Если я правильно понял выбирается из ComboBox'a. Верно?
Какие там элементы в нем? Года?
2000
2001
2002
2003
...
2011
Так?

[kalinochkind]

Код:

IsLeapYear(strtoint(combobox1.text))

[Hetrue]

Всем спасибо!