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

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

Проверка числа на четность )


owa ©   (2008-01-20 14:55:00) 

Доброе время суток ув. мастера. Передо мной встала задача с первого взгляда простая, но когда я к ней подобрался поближе -оказалось все не так и просто) Я хочу закрасить в ListBox каждую четную строку в другой оттенок цвета, а когда начал делать цикл - оказалось что не умею проверить четное ли число или нет.. (
Подскажите пожалуйста как это проверяется? Может быть есть какая-то функция стандартная например, или в любом случае надо писать свою функцию проверки на четность? Или чтобы закрасить каждую вторую строку в ЛистБокс вообще своя функция есть)
Заранее спасибо)


{RASkov}   (2008-01-20 20:05:00) [1]

> > Или чтобы закрасить каждую вторую строку в ЛистБокс вообще
> > своя функция есть)
>
> Ну вот как раз я об этом вроде и говорю...

Точнее будет - "свой метод"


{RASkov}   (2008-01-20 20:04:00) [2]

> [0] owa   (20.01.08 14:55)
> Я хочу закрасить в ListBox каждую четную строку в другой
> оттенок цвета, а когда начал делать цикл

А цикл-то вообще зачем здесь?
OnDrawItem и там должен быть параметр Index который и отправлять в функцию Odd а ее результат проверять и в соответствии красить строку с четным или нечетным Индексом....

> Или чтобы закрасить каждую вторую строку в ЛистБокс вообще
> своя функция есть)

Ну вот как раз я об этом вроде и говорю...


korneley   (2008-01-20 18:55:00) [3]


> Т.е. 0 - четное число?

Если верить определению "делится на 2 без остатка", то да. Но, по-моему, 0 считается четным, так сказать, волевым решением. Просто договорились. А нечетное число 1 чем лучше? Тоже меньше двух.


DrPass   (2008-01-20 18:43:00) [4]


> if x mod 2=0 then число чётное

Т.е. 0 - четное число?


KilkennyCat   (2008-01-20 18:40:00) [5]

а зачем вообще проверять в поставленной задаче? цикл закраски с шагом 2.


korneley   (2008-01-20 18:34:00) [6]


> За пример безграмотного кода

Это не пример кода, это сигнал о том, что есть такая функция. :)
Не, ну ясно же, что результат функции проверять на равенство с  true - мове тон. Если кто-то прям так и вставит - то... так ему и надо :)))


Anatoly Podgoretsky   (2008-01-20 15:45:00) [7]

> owa  (20.01.2008 15:18:04)  [4]

За пример безграмотного кода


owa   (2008-01-20 15:18:00) [8]

>korneley ©   (20.01.08 15:17) [2]
>a если odd(число) = true, то нечётное.

И вам !


korneley   (2008-01-20 15:17:00) [9]

a если odd(число) = true, то нечётное.


owa   (2008-01-20 15:17:00) [10]

>savyhinst ©  
>if x mod 2=0 then число чётное

Спасибо!!


savyhinst   (2008-01-20 14:58:00) [11]

if x mod 2=0 then число чётное


Наверх

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