Разное
Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>
    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Фреймы
   Категория: Компоненты
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Удалить файл в Корзину
   Категория: Приложение
  Как закачать файл из Интернета
   Категория: Интернет и Сети
  Упаковать TinyDB
   Категория: Базы данных
  Показать удаленные записи в DBase
   Категория: Базы данных
  Как получить код HTM страницы зная ее URL
   Категория: Интернет и Сети
  Быстрое копирование файлов
   Категория: Файловая система
  Как соединить несколько файлов в один
   Категория: Текст и строки
  Сохранение странички в файл из TWebBrowser
   Категория: Интернет и Сети

Delphi - Справочник: Odd

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Odd
function Odd ( Number : Integer | Int64 ) : Boolean;
Функция (Unit System)
Провеяет, является ли целое число нечетным
Описание:
Функция Odd возвращает истину, если данное число (Number) нечетно.
Пример кода: Показ всех нечетных чисел в диапазоне от 1 до 9 

var
  i : Integer;

begin
  // Отображение всех нечетных значений в диапазоне от 1 до 9
  for i := 1 to 9 do
    if Odd(i) then ShowMessageFmt('%d нечётно',[i]);
end;

Результат:
1 нечётно
3 нечётно
5 нечётно
7 нечётно
9 нечётно

  << Вернуться