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



Вопросы
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Как получить дату создания файла
   Категория: Файловая система
  Округление в большую сторону
   Категория: Математика
  Изменить структуру ABS (AbsoluteDB)
   Категория: Базы данных
  Номер строки в memo под курсором
   Категория: Текст и строки
  Удаление файла в корзину
   Категория: Файловая система
  Удалить свой же exe-шник
   Категория: Приложение
  Упаковать *.mdb-файл
   Категория: Базы данных
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
Delphi - База Знаний: Число четное или нечетное

  << Вернуться к Содержанию  

procedure TForm1.Button2Click(Sender: TObject);
begin
if not Odd(StrToInt(Edit1.Text)) then
ShowMessage('Четное')  else
ShowMessage('Нечетное');
end;
  << Вернуться к Содержанию